7 


D-A124  212 


EDITSPEC:  SVSTEM  MANUAL  VOLUME  VIII  PROGRAMMERS  MANUAL 
<U>  CONSTRUCTION  ENGINEERING  RESEARCH  LAB  (ARMV) 
CHAMPAIGN  IL  E  S  NEELV  OCT  79  DOD/DF-83/002J 

.  F/G  9/2 


1/1 

NL 


UNCLASSIFIED 


"MriLCrno.  WA 124212 


EDITSPEC  SYSTEM  MANUAL 
VOLUME  8:  PROGRAMMERS  MANUAL 


E.  S.  Neely 


October  1979 


DTIC 

^ELECTt, 


FEB  8  1283  ^  » 


Department  of  the  Army 
CONSTRUCTION  ENGINEERING  RESEARCH  LABORATORY 
P.0.  Box  4005 
Champaign,  IL  61820 


WJOWKDIT 

national  TECHNICAL 
INFORMATION  SERVICE 


— _ 


83  02  08  144 


*  (:(  rC-J  \*.\  UNITED  STATES  DEPARTMENT  OF  COMMERCE 
.  V\  fv)  Jz)  National  Technical  Information  Service 
VgsSKffl  5205  Port  Royal  Road 

>81'*^  Springfield,  Virginia  22161 


)ate  Jl  FjUs 


. HTIS  Control  #  035042 


•  -  j*  .  . . 

10:  Defense  Technical  Information 

Center  -  DTIC  ‘  ;t 

Cameron  Station  Z 

.  Alexandria,  Virginia  22314  . 

•  •  • 

•  *  J 

FROM:  NTIS,  Input  Branch 

5285  Port  Royal  Road 

Springfield,  Virginia  22161 


ADA  # 


Report  if  Q)o2)~Z).F-  <%3rP  xJ '  ADA  if _ -  • _ 

Title:  £TicTS  C  V  ' 

Subject  report  is'  Standard  Process  !~~T  STG  report.  STG  -  Special 
Technology  Group .  ’  7*7  Computer  Product  /~7  Follow  -up  date _ _ 


n  The  report  will* be  accessioned  by  DDC.  The  form  noting  the  .ADA  nursK 

JLs  returned.  •  :  ..  ‘l*  .  .  .  . 

•  .  *  •••  *•  ••'  .*  •••■■.  *  .  •  • 

*«••**•**«”*'•  . 

n  The  report  has  been  assigned  the  ADA  number  noted  above  and  is  retur 
*.to  NTIS  for  processing.  .  .  .....  .*  • 

77  DDC  will  not  process  the  report.’  It  Is  returned  to  NTIS 


Mag  Tape  Price * 
PC  &  MF  Price  ~ 

Stock  Quantity _ 

Comments: 


I  ’.  ***■< 

*  •.*  *  .‘—a 


-Source  Share 


•  ’  •  •  *  .  :  •*  *  fl  (U-Lcu  • 

"  -Signature  (for  billing} 

Copy  when  completed  to  V  • 

•Finance  Branch  ..  :  .  \  >:V  •  . 

.  .  ‘  ;  '.?*•”  ■' 

•  DOD* Report  Action  Request  *  '*  ..  ••  '  » 

-(Replaces  NTIS-164  5-72)  *  *v.<r  *.  .!*.»*  .  \  *'  T.r 

Please  return  to  NTTS  -  Information  Services  Branch,  Room  301,  Torktovn  Building 
•Attention:  Dottle  Adams.  •*  .  ..  »  ■ 


REPORT  DOCUMENTATION  !»•  •«>oht  mo. 


nu  vn*  »  »»  »  »w»» 

PAGE  DQD/DF-83/002  3 


4.  THI*  and  ftoMMa 

EDITSPEC:  System  Manual,  Volume  VIII:  Programmers 
Manual 


7.  Authori*) 

Edgar  S.  Neely,  Jr.  _ 


ft.  Mdwwlin  OfcanlxaUan  Mama  and  Addraaa 

Department  of  the  Army 

Construction  Engineering  Research  Laboratory 
P.0.  Box  4005 
Champaign,  IL  61820 


12.  Sponsoring  Organttatlan  Mama  and  Addraaa 

(same) 


ft.  Mctpiam't  Accaaatan  Na. 

/*■  V  *-r 


ft.  Mapait  Data 

October  1979 


ft-  Marfawlng  OrganUatlan  A  apt.  Na. 


ICl  Nlailffart/Wwt  UnK  Na. 


11.  CamracMO  ar  Granted  Na. 


1ft.  Typa  of  Raport  ft  Mariad  Covarad 


IS.  lapptamamary  Nataa 

For  magnetic  tapes,  see 


II  Atetwct  (limit:  200  mrft)  ^ 

The  EDITSPEC  System  is  an  automated  system  designed  to  produce  construc¬ 
tion  specifications  from  Corps  of  Engineers  Guide  Specifications.  The 
System  uses  one  central  computer  and  a  communications  network  to  provide 
remote  terminal  access  by  Corps  offices,  nationwide  to  a  central  data 
base. 

This  volume  provides  programmers  with  the  procedures  to  master  the 
EDITSPEC  system  and  to  add  new  features  to  the  system.  EDITSPEC *s 
internal  character  representation  and  command  processing  are  presented 
first.  The  standard  application  commons  and  subroutines  are  described 
next.  The  required  access  methods  to  tables  are  then  given.  The  last 
chapter  provides  the  suggested  method  for  adding  new  functional  commands 
to  the  system. 


ftMfttfia  • 

Construction  Specifications 
Guide  Specifications 
Military  Construction 


ft  COftATI  FMW /OHM 


N.  ftacaNty  CtoM  (TNM  Mwift 

UNCLASSIFIED 


ML  ln»*>  Ctaaa  (UN  Ra«af 

UNCLASSIFIED 


ABSTRACT 


This  volume  provides  programmers  with  the  procedures  to  master  the 
IDITSPEC  system  and  to  add  new  features  to  the  EDITSPEC  system. 
EDITSPEC's  internal  character  representation  and  command  processing  is 
presented  first.  The  standard  application  coranons  and  subroutines  are 
described  next.  The  required  access  methods  to  tables  are  then  given. 
The  last  chapter  provides  the  suggested  method  for  adding  new  functional 
commands  to  the  system. 


i 


1 


■-J 


CONTENTS 


f£Si 

ABSTRACT 

FOREWORD 

1.  MASTERING  THE  EDITSPEC  SYSTEM  . 

2.  EDITSPEC  CHARACTER  REPRESENTATION . *... 

3.  EDITSPEC  COMMAND  PROCESSING  . 

4.  STANDARD  APPLICATION  COMMONS  . 

5.  STANDARD  APPLICATION  SUBROUTINES . . . 

6.  STANDARD  ACCESS  TO  TABLES  . 

7.  ADDING  NEW  FUNCTIONAL  COMMANDS  . . 


I 


11 


APPENDICES 


A  -  USER  MANUAL  TYPING  NOTES  . 

B  -  SIT  TEST  DECK  EXAMPLE  . 

C  -  DOCUMENTATION  EXAMPLE  . 

D  -  PROGRAMMING  NOTES  AMO  PROCEDURES 
C  -  PROGRAM  COMMON  AREAS  . 


Page 


/ 

\ 


111 


1.  MASTERING  THE  EDITSPEC  SYSTEM 


This  chapter  attempts  to  guide  the  programmer  who  knows  nothing 
about  the  EDITSPEC  system  into  a  position  of  understanding  the  logic  of 
the  system  design  and  being  ready  to  begin  program  design  and  imple¬ 
mentation. 

The  best  way  to  obtain  a  working  knowledge  of  the  system  is  to  un¬ 
derstand  the  functions  that  the  system  is  currently  performing..  The 
programmer  should  read  the  first  few  chapters  of  the  users  manual  in 
detail  and  then  review  the  purpose  of  each  command  in  the  remaining 
chapters. 

The  basic  programmer's  tools  are  FORTRAN,  the  data  handler,  and  the 
table  handler.  The  programmer  should  already  have  several  years  of  ex¬ 
perience  in  coding  production  programs  in  FORTRAN.  FORTRAN  manuals 
should  be  obtained  for  reference.  All  codes  should  follow  the  standards 
Of  ANSI  FORTRAN. 

A  solid  working  knowledge  of  the  data  handler  and  table  handler 
should  be  obtained  next  by  reading  Volumes  IV  and  then  III  of  the 
EDITSPEC  System  Manual.  Both  systems  are  basic  tools  needed  to  perform 
coding  for  EDITSPEC. 

The  programmer  should  then  start  to  learn  the  system  design  con¬ 
cepts  by  reading  the  “Construction  Specification  Preparation  Within  the 
EDITSPEC  System"  report.  Volume  I,  Systems  Overview,  should  be  read 
next  followed  by  Volume  2,  System  Design  Concepts. 

Detailed  programming  instructions  are  given  in  the  remaining 
sections  of  this  manual. 
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2.  EOITSPEC  CHARACTER  REPRESENTATION 


The  actual  representation  of  a  character  in  machine  code  and  the 
sequential  order  of  the  machine  character  representation  are  entirely 
machine  dependent.  The  EOITSPEC  system  uses  one  consistent  internal 
code  to  represent  all  allowable  characters.  This  internal  code  is  shown 
in  Table  2.1.  ^  .(  ,  ^ 

The  first  26  internal  characters  identify  all  special  characters 
recognized  by  the  system.  Special  characters  are  identified  as  punc¬ 
tuation  or  nonpunctuation  characters  as  shown  in  the  table.  A  word 
within  the  text  of  a  document  may  have  punctuation  characters  before 
and/or  after  the  characters  in  the  word.  For  example,  the  word  "house" 
may  appear  as  “(house)”  in  the  text.  The  punctuation  characters  must  be 
overlooked  when  trying  to  locate  the  word  “house.” 

The  next  26  characters  with  internal  codes  27  through  52  represent 
the  alphabetic  character  set.  EDITSPEC  internal  representation  repres¬ 
ents  lower-case  alphabetic  characters  as  the  characters  themselves. 
Upper-case  alphabetic  characters  are  represented  by  two  internal  charac¬ 
ters.  The  first  is  an  internal  code  of  63  to  indicate  that  the  next 
character  is  to  be  printed  as  an  upper-case  character.  The  second  char¬ 
acter  is  the  lower-case  representation  of  the  upper-case  character. 

The  two-character  notation  was  adopted  to  minimize  computer  search¬ 
ing  time  when  trying  to  locate  all  occurrences  of  the  word  “house."  The 
text  may  contain  house  in  several  forms: 

1.  house 

2.  House 

3.  HOUSE 

4.  hoUSE 

5.  HOuse 

Text  searches  are  normally  performed  in  all  lower  case  with  the  internal 
code  63  ignored  during  comparison. 

The  internal  codes  53  through  62  represent  the  characters  "0" 
through  “9." 

When  the  user  enters  a  character  that  is  not  contained  in  the  in¬ 
ternal  code,  the  characters  will  be  translated  to  a  question  mark  (?). 
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3.  EDITSPEC  COMMAND  PROCESSING 


The  FORTRAN  subroutine  CMMND  controls  the  processing  of  all  com- 
uands.  CMMND  calls  another  subroutine  GTCMD  to  get  the  next  conutand. 
GTCMD  calls  subroutine  RDLIN  to  read  the  command  from  an  external 
device.  ROLIN  calls  one  of  four  subroutines  to  perform  the  actual  read¬ 
ing  of  the  command. 

The  /PARSC/  contnon  is  used  to  store  all  related  information  about 
the  connand.  The  machine  character  representation  of  the  coirmand  is 
stored  in  array  MCLIN  in  “Al"  format  for  machine-independent  writing. 
Array  STRNG  contains  the  command  in  EDITSPEC  internal  codes  in  a  packed 
format. 

The  commands  are  decoded  by  the  subroutine  DECOD.  Array  PMPTR  con¬ 
tains  the  total  number  of  parameters  in  the  command  in  PMPTR  (1,  3). 

The  actual  information  about  each  parameter  is  stored  in  the  rows  of 
PMPTR.  The  parameter  types  and  PMPTR  information  is  given  in  Table  2.2, 
Decode  Variables. 

The  DECODE  subroutine  calls  subroutine  MATCH  to  identify  the  type 
of  conmand  that  has  been  entered.  MATCH  compares  the  command  name 
string  entered  with  the  allowable  command  name  acronyms  and  sets 
variable  ISUB  to  point  to  the  correct  subroutines  for  CMMND  to  transfer 
control  to  for  actual  processing  of  the  command  itself. 

When  the  command  processing  routine  returns  control  to  CMMND,  CMMND 
will  start  the  process  all  over  again. 


Preceding  page  blank 
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SUBROUTINE  DECOO 

PROGRAM:  SUBROUTINE  DECOO  v 

FUNCTION:  INTERPRET  A  COMMAND  AND  CALL  THE  PRO&R  SUBROUTINE 
AUTHOR:  PETER  KARP 
MODIFICATIONS: 


LANGUAGE:  FORTRAN 


CALLING  SEQUENCE:  CALL  DECOD 


TASKS  OR  MODULES: 


VARIABLES: 

CHARY  -  ARRAY  WHICH  CONTAINS  UNPACKED  COMMAND  STRING 
ICHAR  -  INDEX  INTO  CHARY  (POINTS  TO  CURRENT  CHARACTER) 

I SUB  -  VALUE  USED  IN  COMPUTED  GO  TO  DETERMINE  WHICH 
COMMAND  SUBROUTINE  TO  CALL 
KOUNT  -  USED  TO  CALCULATE  EACH  PARAMETER  SIZE 
NCHAR  -  MAXIMUM  NO.  OF  CHARACTERS  IN  THIS  COMMAND  STRING 
MAX ST  -  MAXIMUM  ALLOWABLE  STRING  LENGTH 
NCHST  -  COUNTER  FOR  CURRENT  LENGTH  OF  CURRENT  STRING 
PMPTR  -  A  2-DIMENSIONAL  ARRAY  WHICH  CONTAINS  THE  DESCRIPTION 
OF  ALL  PARAMETER  FIELDS  FOUND  FOR  THE  PRESENT  COMMAND 
PMPTR  (1,1)  ■  NOT  USED 
PMPTR  (1,2)  *  NOT  USED 

PMPTR  (1,3)  »  THE  NO.  OF  PARAMETER  FIELDS  FOUND  FOR  THIS 
COMMAND 

PMPTR  (N,l)  ■  THE  CHARACTER  LOCATION  WITHIN  THE  COMMAND 
STRING  OF  THE  FIRST  CHARACTER  OF  THIS 
PARAMETER 

PMPTR  (N,2)  -  THE  LENGTH  OF  THIS  PARAMETER  (NO.  OF  CHAR) 
PMPTR  (N,3)  *  PARAMETER  TYPE 
PTYPE  -  TYPE  OF  PARAMETER 

1  -  NUMERIC 

2  -  ALPHANUMERIC  STRING 

(NOT  ENCLOSED  WITHIN  DELIMITERS) 

3  -  ALPHANUMERIC  STRING 

(ENCLOSED  WITH  DELIMITERS) 

4  -  SEMICOLON 

5  -  HYPHEN 

6  -  COMMA 

7  -  DOUBLE  ASTERISK 

8  -  PLUS 

9  -  COLON 

PRMNO  -  THE  CURRENT  PARAMETER  NO. 

PRVCH  -  CONTAINS  THE  PREVIOUS  CHARACTER 
STEND  -  LAST  USED  STRING  DELIMITER 
STRNG  -  ORIGINAL  COMMAND  STRING 

Table  2.2.  DECODE  VARIABLES. 
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4.  STANDARD  APPLICATION  COMMONS 


Several  labeled  common  areas  have  been  defined  to  contain  infor¬ 
mation  which  insures  that  the  code  is  as  machine  independent  as  possi¬ 
ble.  Programmers  should  use  the  variables  in  common  instead  of 
recalculating  the  values.  The  programmer  should  review  all  common  areas 
to  understand  their  application  and  contents. 

The  basic  commons  that  the  programmer  should  review  are  as  follows: 

1)  Blank  Common  (unlabeled)  -  contains  all  general  system  infor¬ 
mation. 

2)  DEBUGC  Common  -  Contains  the  debug  switch. 

3)  EDITC  Common  -  Contains  all  general  variables  related  to 
editing  a  document. 

4)  FDITC  Common  -  Contains  all  general  variables  related  to  acces¬ 
sing  a  second  document  while  editing  a  document. 

5)  IOC  Common  -  Contains  all  input  and  output  logical  device  num¬ 
bers. 

6)  LOCKC  Common  -  Contains  all  resource  allocation  information. 

7)  MC  Common  -  Contains  several  machine-dependent  constants  de¬ 
rived  from  NCU. 

8)  PARSC  Common  -  Contains  all  information  about  the  command  being 
processed. 

9)  SCRTC  Common  -  Contains  one  array  243  words  long  that  can  be 
used  for  table-handler  access  rather  than  dimensioning  a  new  local 
array. 

10)  SIZEC  Common  -  Contains  all  Information  about  the  number  of 
Standard  units  required  to  represent  specific  length  character  strings. 

11)  SYSTM  Common  -  Contains  all  general  information  about  the 
EDITSPEC  system  and  system  table. 

12)  TABIC  Common  -  Contains  Information  used  by  the  table-handler 
system. 

13)  TPXXXX  Commons  -  XXXX  is  the  name  of  a  system  or  document 
table.  Contains  offset  information  tj  access  the  tables  and  data 
records. 
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14)  VFMT  Common  -  Contains  variable  formats  for  printing  different 
types  of  character  strings. 

A  listing  of  all  commons  used  in  the  EDITSPEC  system  is  given  in 
Appendix  E. 
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5.  STANDARD  APPLICATION  SUBROUTINES 


Several  basic  application  programs  are  available  for  the  pro¬ 
grammer's  use.  To  insure  uniformity  in  programming  and  easy  mod¬ 
ifications  to  basic  functions,  al I  programmers  must  use  the  standard  ap¬ 
plication  subroutines  provided. 

Two  lists  are  provided  for  reference.  The  first  (Table  2.3)  con¬ 
tains  the  functions  to  be  performed,  followed  by  the  name  of  the  sub¬ 
program  that  performs  the  function.  The  second  (Table  2.4)  contains  the 
calling  sequence  and  the  definitions  of  the  parameters  to  be  used. 


FUNCTION 


SUBROUTINE 


Character  Conversions 


to  Macnine 


\m earn 


Single  Character 
Machine  to  EDITSPEC 


A1  format  String 
Single  Character 

EOITSPEC  to  Inteoer  Number 


Within  PacKed  strings 
Beginning  of  Packed  Strings 

eaer  Number  to  EOITSPEC 


Cody  Characters  to  Another  Strin 


From  left  to  ngnt 
From  right  to  left 

Data  Set  Number 


EDIT  A  Second  Document  While  EDITING  a 


rimary  uocument 


Move  Characters  Within  a  Strin 


Packing  Characters 


Unpacking  Characters 


acnine  to  Machine 


packed  to  Ml  format 
EDITSPEC  to  EDITSPEC 


packed  to  unpacked 


UNPAK 


TaBU  2-3.  Programming  Functions  Supported  by  Standard  Subroutines 


SUBROUTINE  AND  VARIABLES 


CHANGED 


SUBROUTINE:  AN241  (SC'JRC,L*oTH.DESTN) 

FUNCTION:  TOTOnJERT  FCT"('A,l«)  FORMAT; 

(N*NCU). 

VARIABLES:  SOURC  ()  IS  SOURCE  STRING 

PACKED  IN  A4  FORMAT 
(FOR  IBM350). 

LNGTH  IS  NUMBER  OF  CHARACTERS 
IN  SOURC. 

DESTN()  IS  DESTINATION  ARRAY, 
WHERE  STRING  IS  PUT  IN  A1 
FORMAT. 

SUBROUTINE:  CHIFT  (LA,NSHFT,NSHS. 

™ NSrit  .LPT 

FUNCTION:  ShIFI  CHARACTERS  TO  EITHER 

THE  LEFT  OR  THE  RIGHT  OR  TO 
'  PAD  WITH  A  SPECIFIED  CHARAC¬ 

TER. 

VARIABLES:  CALLING  SEQUENCE:  CALL 

CHIFT  (LA,NSHFT,NSHS,NSHE, 

IP) 

WHERE:  LA  -  THE  ARRAY  IN 
WHICH  SHIFTING  IS  TO  OCCUR. 
(MAX  DIMENSIONS  =  126  WORDS) 
NSHFT  -  THE  AMOUNT  OF  SHIFT 
IN  NO.  OF  CHARS.  (-LT,  +RT) 
VALUE  OF  0  WILL  BLANK  AREA 
WITH  EXT.  BLANKS. 

NSHS  -  LEFTMOST  CHAR. 

POSITION  OF  AREA  TO  BE 
SHIFTED. 

HSHE  -  RIGHT-MOST  CHAR. 
POSITION  OF  AREA  TO  BE 
SHIFTED. 

LP  -  THE  PADDING  OR  BLANK¬ 
ING  CHARACTER. 

SUBROUTINE:  ED2MC (EDARR , SC , NC . 

TCStT.MCARR.NW) 

FUNCTION:  "10  LUNVfcKT  A  STRING  FROM 

EDITSPEC  FORMAT  TO  MACHINE 
(Al)  FORMAT. 

VARIABLES:  EDARR  IS  THE  SOURCE  STRING 

IN  EDITSPEC  FORMAT. 


INPUT 

A(t) 

NO 

INPUT 

WORD 

NO 

OUTPUT 

A(t) 

YES 

INPUT/ 

OUTPUT 

A(126) 

YES 

INPUT 

WORD 

NO 

INPUT 

WORD 

NO 

INPUT 

WORD 

NO 

INPUT 

WORD 

NO 

INPUT 

A(t) 

« 

NO 

Table  2.4.  Standard  Application  Subroutines 
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SUBROUTINE  AND  VARIABLES 


I/O 


TYPE 


CHANGED 


SC  IS  THE  STARTING  CHARACTER 
NUM3ER  OF  EDARR  TO  START 
CONVRTING. 

INPUT 

WORD 

NO 

NC  IS  NUM3ER  OF  CHARACTERS 

OF  EDARR  TO  CONVERT. 

INPUT 

WORD 

NO 

UCSET  IS  OUTPUT  CHARACTER 

SET  CODE. 

INPUT 

WORD 

NO 

MCARR  IS  OUTPUT  STRING  IN 

IN  MACHINE  (Al)  FORMAT. 

OUTPUT 

A(t) 

YES 

NW  IS  NUX3ER  OF  WORDS  IN 

MCARR  THAT  HAVE  BEEN  CON- 

OUTPUT  . 

WORD 

YES 

VERTED. 

SUBROUTINE:  FUNCTION  EX2IN(IXCAR) 

FONCTW:  mvmrtETEGSXmi  AT  A 

TIME  FROM  MACHINE  INTERNAL 
CODE  TO  EDITSPEC  INTERNAL 
CODE. 

VARIABLES:  EXTRN  -  AN  ARRAY 

WHICH  IS  DEFINED  N 
ELEMENTS  LONG  WHERE 
N  EQUALS  THE  NO.  OF 
POSSIBLE  INTERNAL 
CHARACTER  REPRESENTA¬ 
TION  CODES  ON  A 
PARTICULAR  MACHINE. 

IXCAR  -  IS  THE  MACHINE  CODE  INPUT  WORD  NOT 

VALUE  FOR  A  PARTIC-  CHANGED 

ULAR  CHARACTER. 

SUBROUTINE:  FDIT(JPOCN,JREAD) 


FUNCTION: 

TO  SET  U?  A  SECONDARY 

EDIT  DOCUMENT. 

VARIABLES: 

JDOCN{3)  IS  SECONDARY 

DOCUMENT  NAME. 

INPUT 

A(3) 

NO 

IDAC  IS  DOCUMENT  ACCESS  CODE 
RETURNED  BY  ROUTINE  FDAC. 

OUTPUT 

WORO 

YES 

SUBROUTINE: 

FD$BK(DSNM,DSNO) 

TUnctiON: 

"  TO  "SET  DATASET  NUMBER  FROM 
DATASET  NAME  (BACKUP  -  NOT 
'MAIN) 

VARIABLES: 

DSNM(2)  IS  6  CHARACTER 

OATASET  NAME. 

INPUT 

A(2) 

NO 

OSNO  IS  OATASET  NUMBER 

OUTPUT 

WORD 

YES 

(FORTRAN  LOGICAL  I/O  UNIT 
NUMBER). 
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SUBROUTINE  ANO  VARIABLES 


I/O 


TYPE 


CHANGED 


TEMPO (8)  IS  TEMPORARY  ARRAY 
TO  STORE  UNPACKED  NAME. 
DSERR  IS  USED  TO  INDICATE 
AN  ERROR  CCDE. 


SUBROUTINE:  FDSMN(DSNM.DSNO) 


FROM  DATASET  NAME  (MAIN  - 
NOT  BACKUP) 


VARIABLES: 

DSNM(2)  IS  6  CHARACTER 
DATASET  NAME. 

INPUT 

A(2) 

NO 

DSNO  IS  DATSET  NUMBER 

OUTPUT 

WORD 

YES 

(FORTRAN  LOGICAL  I/O  UNIT 
NUMBER). 


SUBROUTINE:  FSTOR 


ACCESS  TO 


A  SECONDARY  DOCUMENT. 


SUBROuiiNE:  I C0P3 ( SOURC, SFST, NUM, 


r~COPTES  NUM  CHARACTERS 
FROM  SOURC  (STARTING 
AT  SFST)  TO 

C  -  DEST  (STARTING  WITH  DFST) 
BACKWARDS 

C  -  ALL  OTHER  CHARACTERS  OF 
DEST  ARE  UNCHANGED 


VARIABLES:  SOURCE  -  PACKED  INPUT  INPUT  A(+)  NO 

STRING 

SFST  -  RIGHT-MOST  CHARACTER  INPUT  WORD  NO 

TO  MOVE 

NUM  -  TOTAL  NUMBER  OF  CHARAC-  INPUT  WORD  NO 

TERS  TO  MOVE 

DEST  -  PACKED  OUTPUT  STRING  INPUT/  A(+)  YES 

OUTPUT 

DFST  -  RIGHT-MOST  CHARACTER  INPUT  WORD  NO 

TO  START 


SUBROUTINE:  I COPY ( SOUR  C , SF  ST , NUM , 


NUM  CHARACTERS  FROM 


SOURC  (STARTING  AT  SFST) 
TO 


C  -  DEST  (STARTING  WITH  DFST) 
C  -  ALL  OTHER  CHARACTERS  OF 


DEST  ARE  UNCHANGED 
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_  SUBROUTINE  AND  VARIABLES 


VARIABLES:  SOURCE  -  PACKED  INI 


SUBROUTINE: 

Torarr 


VARIABLES: 


SUBROUTINE: 


VARIABLES: 

SUBROUTINE: 

FUNCTION: 


SOURCE  -  PACKED  INPUT 
STRING 

SFST  -  RIGHT-MOST  CHARACTER 
TO  MOVE 

NUM  -  TOTAL  NUMBER  OF  CHARAC¬ 
TER  TO  MOVE 

OEST  -  PACKED  OUTPUT  STRING 

DFST  -  RIGHT-MOST  CHARACTER 
TO  START 


INTEGER  FUNCTION  I NTER ( STRNG , I P TR , LENG 1 
IklS  kuUTlNrWMiS  A 
NUMERIC  STRING  FROM  ( STRNG) 

AND  PLACES  IT  INTO  THE  (DIGIT) 

ARRAY.  THE  (DIGIT)  ARRAY 
IS  THEN  CONVERTED  INTO  A 
NUMBER. 

CALLING  SEQUENCE: 


TERS  REPRESENTING  THE  USERS 
INPUT  COMMAND. 

IPTR  «  FIRST  CHARACTER  IN 
THE  STRING  FOR  THE  FIRST 
NUMBER. 

LENG  «  TOTAL  NUMBER  OF 
CHARACTERS  IN  THE  NUMBER. 

INTEGER  FUNCTION  INTGR  (A.NDIG1 
inis  KouTlsrFOSMS  The 
ACTUAL  NUM3ER  FOR  THE  STRING 
INTO  THE  MACHINE  INTERNAL 
REPRESENTATION  OF  THE  ACTUAL 
NUMERICAL  VALUE  BEING 
REPRESENTED. 

CALLING  SEQUENCE: 

A  -  NUMERIC  STRING 

NOIG  «  NUMBER  OF  DIGITS  TO 

CONVERT 

INTEGER  FUNCTION 

’TOxnwftj — 

CONVERTS  The  EDITSPEC 
REPRESENTATION  OF  CHARACTERS 
INTO  THE  STANDARD  MACHINE  CODE 
REPRESENTATION. 


I/O 

TYPE 

CHANGED 

INPUT 

A(+) 

NO 

INPUT 

WORD 

NO 

INPUT 

WORD 

NO 

INPUT/ 

A(+) 

YES 

OUTPUT 

INPUT 

WORD 

NO 

INPUT 

A(+) 

NO 

INPUT 

WORD 

NO 

INPUT 

WORD 

NO 

INPUT 

INPUT 
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SUBROUTINE  AND  VARIABLES  _ I/O  TYPE  CHANGED 


ICAR  IS  A  WORD  WHICH  CONTAINS 
ONLY  ONE  CHARACTER  RIGHT- 
JUSTIFIED 

EXTRN  IS  THE  MACHINE'S 
REPRESENTATION  OF  CHARACTERS 
THE  ED1TSPEC  REPRESENTATION 
IS  A  CODE  FROM  1  TO  62  WHICH 
CORRESPONDS  EXACTLY  TO  THE 
ORDERING  OF  EXTRN 

SUBROUTINE  N02 1 C  ( N'JMBR , CHAR  S , NCH AR ) 

FUNCTION:  To  convert  an""InTlG'lS 

NUMBER  TO  FOI  INTERNAL 
CHARACTERS.  RESTRICTED 
TO  10  SIGNIFICANT  DIGITS. 


VARIABLES: 

CALLING  SEQUENCE: 

CALL  N02IC ( NUM3R , CHARS , NCH AR ) 

NUMBR  IS  THE  INTEGER  NUMBER 
PASSED  TO  N02IC 

INPUT 

WORD 

NO 

CHARS(3)  IS  AN  ARRAY  CONTAIN¬ 

OUTPUT 

A(3) 

YES 

ING  THE  CHARACTERS  AND  IS 
FILLED  AND  RETURNED  BY  N02IC. 
NCHAR  IS  RETURNED  BY  N02IC 

AS  THE  TOTAL  NUM3ER  OF 
CHARACTERS  STORED  IN  CHARS 

BY  N02IC. 

OUTPUT 

WORD 

YES 

SUBROUTINE: 

PACK(S0URC,L1,NUM, 

bEST,L2 } 

FUNCTION: 

Pack  nuM  characters  into 

THE  STRING  DEST,  STARTING 

WITH  CHARACTER  L2  OF  DEST. 

THE  CHARACTERS  ARE  TAKEN 

FROM  THE  LEAST  SIGNIFICANT 
CHARACTER  OF  THE  ELEMENTS  OF 
THE  ARRAY  SOURC,  STARTING 

WITH  STANDARD  UNIT  LI. 

VARIABLES: 

SOURC  -  PACKED  INPUT 

STRING 

INPUT 

A(+) 

NO 

LI  -  RIGHT-MOST  CHAR  TO  MOVE 

INPUT 

WORD 

NO 

NUM  -  TOTAL  NUMBER  OF  CHARAC¬ 
TERS  TO  MOVE 

INPUT 

WORD 

NO 

DEST  -  PACKED  OUTPUT  STRING 

INPUT/ 

OUTPUT 

A(+) 

YES 

L2  -  FIRST  CHARACTER  IN 

INPUT 

WORD 

NO 

OUTPUT 
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SUBROUTINE  AND  VARIABLES 


CHANGED 


6.  STANDARD  ACCESS  TO  TABLES 


During  the  actual  execution  of  EDITSPEC  in  an  interactive  or  multi¬ 
programming  environment,  several  users  may  be  executing  different  copies 
of  the  EDITSPEC  code  at  the  same  time.  Some  of  the  users  may  wish  to 
access  (to  read  and/or  write)  the  same  resources  (document  or  system 
table)  at  the  same  time.  The  "multi-user"  feature  will  permit  concur¬ 
rently  executing  EDITSPEC  orograms  to  share  the  use  of  system  tables  and 
documents.  Shared  use  of  these  resources  must  be  strictl y  controlled  in 
order  to  ensure  that  one  program  does  not  interfere with  the  correct  ex¬ 
ecution  of  others.  This  control  takes  the  form  of  synchronizing  use  of 
these  resources  on  the  part  of  the  programs  involved. 

When  a  program  requires  use  of  a  resource,  it  must  request  control 
of  that  resource  from  the  operating  system.  Control  of  a  resource  can 
be  either  exclusive  or  shared.  Exclusive  control  of  a  resource  guaran¬ 
tees  that  no  other  program  will  be  granted  access  to  that  resource 
(write  access).  Shared  control  guarantees  that  no  other  program  will  be 
granted  exclusive  control  of  that  resource,  but  other  programs  will  be 
granted  shared  control  of  that  resource  (read  only  access). 

A  request  for  either  kind  of  control  of  a  resource  can  be  either 
conditional  or  unconditional.  For  conditional  requests,  control  is 
granted  only  if  the  resource  is  immediately  available.  The  requesting 
program  is  informed  as  to  whether  or  not  control  was  granted.  For  un¬ 
conditional  requests,  control  is  granted  as  soon  as  the  resource  becomes 
available.  The  requesting  program  may  have  to  wait  for  an  indefinite 
amount  of  time.  This  eventuality  is  entirely  transparent  to  the  program 
Itself. 

When  a  program  has  finished  using  a  resource,  it  must  relinquish 
control  of  that  resource  so  that  it  becomes  available  for  use  by  other 
programs. 

REQUESTING  AND  RELINQUISHING  CONTROL  OF  RESOURCES  IS  THE  PRO¬ 
GRAMMER'S  RESPONSIBILITY.  Two  subroutines,  LOCK  and  UNLOK,  have  been 
made  available  for  this  purpose. 


Required  Programming  Before  Calling  LOCK  or  UNLOK 
INTEGER  RSRCS 

COMMON  /LOCKC/  RSRCS  (7,40),  NRSRCS 

Before  calling  LOCK  or  UNLOK,  you  must  describe  the  resources  to  be 
requested  or  relinquished  via  the  array  RSRCS.  Each  column  corresponds 
to  one  resource.  The  number  of  resources  described  in  RSRCS  must  be  de¬ 
fined  in  the  variable  NRSRCS. 
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Before  a  call  to  LOCK,  RSRCS(2,I),  RSRCS(3,I),  RSRCS(4,I),  and 
RSRCS(5,I)  must  contain  the  name  of  the  I'th  resource  requested. 
RSRCS(l.I)  must  contain  the  number  of  the  data  set  on  which  this  re¬ 
source  resides.  RSRCS(7,I)  should  »  1  if  exclusive  control  of  this  re¬ 
source  is  requested,  0  if  shared  control  is  requested;  NRSRCS  should 
contain  the  number  of  resources.  RSRCS(6,I)  should  not  be  used  within  a 
processing  program. 

LOCK,  as  its  name  implies,  is  to  be  used  to  request  control  of  re¬ 
sources. 

LOCK  has  a  single  argument,  the  integer  variable  IND,  which  should 
*  1  if  the  request  is  conditional,  0  if  the  request  is  unconditional. 

If  IND  *  1,  LOCK  will  return  the  status  of  the  request  via  the  argument 
IND.  IND  *  1  if  control  of  all  requested  resources  was  granted,  0  if 
control  over  none  of  the  resources  was  granted  due  to  the  non¬ 
availability  of  one  or  more  of  the  resources.  If  the  request  was  uncon¬ 
ditional,  then  control  of  all  requested  resources  was  granted  (IND  was 
not  modified  and  still  =  0).  Note  that  LOCK  (or  UNLOK)  never  modifies 
LOCKC. 

UNLOK  is  to  be  used  to  relinquish  control  of  resources.  UNLOK  has 
no  arguments,  since  control  of  resources  is  always  relinquished  uncon¬ 
ditionally. 


Application  Rules 

The  following  rules  must  be  strictly  observed: 

(1)  Control  of  a  resource  should  not  be  requested  until  it  Is 
needed; 

(2)  A  resource  must  not  be  used  until  after  its  control  has  been 
requested  and  granted; 

(3)  a.  The  use  of  DKOPN,  DKPUT,  DKINS,  DKLOS,  DKSET,  DKRNM, 

OKXIT,  or  DKCLR  in  connection  with  a  resource  requires 
EXCLUSIVE  CONTROL  of  that  resource; 

b.  The  use  of  DKFIL,  DKLEN,  or  DKGET  in  connection  with  a 
resource  requires  shared  or  exclusive  control  of  that 
resource; 

C*  The  use  of  DKNDS,  OKNIT,  or  DKDMP  is  unrestricted; 

(4)  Control  of  a  resource  must  not  be  relinquished  until  it  is 
consistent  with  respect  to  both  itself  and  other  resources; 
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(5)  Control  of  a  resource  should  be  relinquished  as  soon  as  it  is 
no  longer  needed; 

(6)  A  resource  must  not  be  used  after  its  control  has  been  relin¬ 
quished; 

(7)  The  logic  of  execution  should  be  such  that:  UNLOK  is  not 
called  wi input  a  ore  views  call  :o  LOCK;  two  calls  to 
LoCk/UMCK  are  never  •"agg  vntnout  an  intervening  caTl  to 
UMl0.</LOCK;  LuCK  is  not  called  without  a  subsequent  call  to 
ML(k; 

(8)  a.  The  same  resource  must  not  be  referenced  by  two  different 

columns  in  RSRCS; 

b.  The  maximum  number  of  resources  to  be  locked  is  40; 

(9)  No  assumptions  may  be  made  regarding  the  contents  of  a  re¬ 
source  at  the  time  its  control  is  granted; 

Failure  to  observe  one  or  more  of  the  above  rules  will  not  neces¬ 
sarily  result  in  the  occurrence  of  a  perceptible  error  condition  (such 
as  an  ABEND),  but  resource  integrity  may  nevertheless  be  seriously 
impaired.  It  is  most  important  that  great  care  in  coding  be  exercised. 


Obtaining  Access  From  System  Commands 

When  CMMND  transfers  control  to  a  system  command,  no  resources  have 
been  locked  and  the  programmer  should  start  from  the  first  column  to  re¬ 
quest  resources.  The  programmer  should  obtain  access  to  all  resources 
needed  at  the  beginning  and  give  up  all  resources  at  the  end  of  the 
system  subroutine.  NRSRCS  should  always  be  set  to  zero  before  returning 
from  a  system  command. 


Obtaining  Access  From  EDIT  and  Internal  Commands 

When  CMMND  transfers  control  to  an  edit  or  internal  command,  access 
to  the  resources  for  the  document  tables  have  already  been  obtained  by 
the  EDIT  or  FDIT  subprograms  which  were  previously  called. 

Access  to  system  tables  must  be  performed  by  unlocking  all  re¬ 
sources,  adding  the  system  table  to  the  end  of  the  current  list,  and 
locking  all  resources.  Removing  access  to  system  tables  must  be  done  by 
unlocking  all  resources,  removing  the  last  system  tables  that  were 
locked,  and  locking  the  remaining  resources  if  there  are  any  in  the 
•rray. 


7.  ADDING  NEW  FUNCTIONAL  COMMANDS  ' 

Addition  of  the  new  functional  conmands  should  be  performed  in  the 
following  manner: 

1.  Write  Users  Manual  Entries  -  Review  the  format  for  user  com¬ 
mands  as  given  in  the  Users  Manual.  The  command  description  to  be  en¬ 
tered  into  the  Users  Manual  should  be  prepared  from  the  functional  re¬ 
quirements  provided  by  the  proponent  agency.  Typing  instructions  are  in 
Appendix  A. 

2.  Review  Users  Manual  Entries  -  The  new  text  should  be  reviewed 
and  approved  by  the  proponent  agency  before  any  detailed  design  or 
coding  is  started. 

3.  Prepare  SIT  Test  Deck  -  The  complete  test  deck  for  each  new 
command  should  be  written.  See  Appendix  B  for  an  example. 

4.  Review  SIT  Test  Deck  -  The  test  deck  should  be  reviewed  and  ap¬ 
proved  by  the  proponent  agency. 

5.  Design  Subroutines  -  Prepare  a  description  of  the  design  in 
correct  English  prose.  Prepare  this  description  on  coding  sheets  as 
comments  to  be  used  for  documentation  in  the  actual  code. 

6.  Code  Each  Subprogram  -  The  programmer  should  set  up  the  stan¬ 
dard  subprogram  documentation  forms  prior  to  coding  the  first  line  of 
code.  A  detailed  description  of  the  design  in  correct  English  prose 
should  be  prepared  on  coding  sheet  before  actual  coding  is  started. 

Code  and  document  all  coding  as  the  coding  is  performed. 

Subroutines  CMMND  and  MATCH  must  be  modified  to  transfer  control  to 
the  correct  processing  program.  See  Appendix  C  for  a  Documentation  Ex¬ 
ample. 


See  Appendix  D  for  Programming  Notes  and  Procedures. 

7.  Set  up  standard  debug  options  for  each  subprogram. 

The  conroand  .DEBUG  X.  will  work  in  both  system  and  edit  mode  to 
turn  on  the  debug  trace  variable  DEBUG  located  in  /DEBUGC/  common. 

Every  program  should  be  written  as  follows  with  an  IF  statement  to  check 
the  value  of  DEBUG: 

X  ■  0  no  debug  print  of  any  type 

X  *  1  The  message  "IN  SUBROUTINE  NAME>"  printed  with  the 
values  of  all  variables  passed  to  the  routine  in  the 
subroutine  call  and  in  common.  This  is  the  first 
executable  statement  in  the  subroutine.  If  a  common 
variable  may  be  changed,  it  should  be  printed 
here  first. 
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The  message  "OUT  SUBROUTINE  NAME>"  printed  with  the  same 
variables  as  the  “IN”  write  statement.  This  is  the 
last  executable  statement  in  the  subroutine. 

X  *  2  detailed  debug  output 

All  debug  statements  should  be  labeled  as  “GUBED-C"  as  the  last 
seven  cnaracters  in  card  column  74  through  80.  This  automatically  iden¬ 
tifies  all  debug  statements. 

Debug  statements  without  the  "IF"  check  are  permissible  for 
debugging  purposes.  These  cards  should  never  be  removed  from  the  pro¬ 
gram.  Instead,  the  cards  should  be  reversed  to  show  the  C-DEBUG  as  the 
first  characters.  This  will  allow  another  programmer  to  reverse  the 
cards  again  to  obtain  the  real  detailed  debug  print. 

If  this  procedure  is  followed,  no  debug  work  will  ever  be  lost  and 
have  to  be  redone  by  a  future  programmer. 

The  list  routines  .LIST,  and  .LT.  are  provided  to  allow  the  pro¬ 
grammer  to  adequately  test  his  programs.  If  new  tables  are  added  to  the 
system,  new  list  routines  should  be  rewritten  for  each  new  table. 

8.  Hand  Debug  the  SIT  Deck  -  The  programmers  should  play  computer 
and  write  out  a  complete  trace  of  each  and  every  command  in  the  SIT 
deck.  This  should  insure  that  the  complete  logic  of  the  program  has 
been  tested  and  the  program  is  correct. 

9.  Computer  Debug  the  SIT  Deck  -  The  programmer  should  run  the  SIT 
deck  with  the  DEBUG  switch  set  to  2  and  compare  the  results  with  the 
hand  debug  output. 

10.  Complete  Cross-Reference  Indices  -  There  are  several  indices 
that  need  updating: 

1.  Commons  used 

2.  Tables  used 

3.  Subprogram  cross-reference  (called  &  called  by)  index  cards 

4.  Conversion  forms 


APPENDIX  A 


USER  MANUAL  TYPING  NOTES 


The  text  to  be  typed  is  a  portion  of  the  "EDITSPEC  USER'S  MANUAL." 
The  manual  is  composed  of  several  hundred  "COMMANDS"  and  "CHAPTERS." 

Each  comand  and  chapter  should  be  typed  and  stored  as  a  separate 
document  (or  file). 

Each  connand  and  chapter  document  (or  file)  should  be  named 
"EDITSPEC  USER'S  MANUAL  -  command  name"  or  chapter  number. 

Example  -  Command  Name  *  INPUT 
EDITSPEC  USER'S  MANUAL  *  INPUT 

All  documents  will  be  stored  until  FY84. 


PLEASE  TYPE  IN  FINAL  FORM  ACCORDING  TO  ATTACHED  INSTRUCTIONS. 
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USER  MANUAL  TYPING  INSTRUCTIONS 


1*  A  one-inch  margin  should  be  placed  on  all  four  sides  of  an  8  by 
10  1/2"  sheet  of  paper. 


2.  Each  command  will  begin  on  a  new  page. 

3.  The  complete  phrase  applied  to  define  the  command  will  be  typed  in 
capital  letters  and  right  justified  on  the  first  text  line  of  every  page 
related  to  the  command. 

4.  The  shortest  acceptable  character  string  will  be  typed  in  capital 
letters  on  the  second  text  line  of  every  page  related  to  the  command. 

The  first  character  will  be  typed  immediately  below  the  first  character 
of  the  complete  phrase  applied  to  define  the  comnand. 

5.  The  titles  of  the  subject  areas: 


TITLE 

PURPOSE 
GENERAL  FORM 
FIELD  OPTIONS 
SPECIAL  NOTES 
EXECUTION  PROCEDURES 
COMMAND  VARIATIONS 
MESSAGES 


FIRST  CHARACTER  INDENTION 

45 

42 

42 

42 
39 
39 

43 


will  be  typed  in  capital  letters,  centered,  and  underlined  on  a  new 
line.  Two  lines  are  to  be  skipped  before  and  after  the  subject  area 
title.  If  the  subject  is  not  required,  the  word  "None"  will  be  printed 
after  the  title. 

Example:  FIELD  OPTIONS  -  None  • 

6.  The  "GENERAL  FORM"  subject  area  is  composed  of  two  different  typing 
formats.  The  first  typing  format  will  be  boxed  in  by  an  illustrator 
before  printing.  An  additional  three  lines  will  be  skipped  after  the 
GENERAL  FORM  title  to  allow  for  the  box.  This  is  a  total  of  5  lines  to 
be  skipped  after  the  general  format  title.  Two  lines  after  the  title 
and  three  lines  for  the  box  before  the  first  text  line.  All  lines 
Should  be  indented  5  spaces  from  each  margin.  The  first  few  characters, 
the  shortest  acceptable  character  string,  will  be  typed  in  capital  let¬ 
ters.  The  rest  of  the  text  will  be  typed  in  italics.  Stop  codes  should 
be  placed  to  allow  type  ball  changes.  Italics  should  not  be  used  in 
drafts  of  the  commands.  This  will  speed  up  the  draft  preparation. 

Three  lines  will  be  left  after  the  completion  of  this  format  for  the  il¬ 
lustrator's  box. 


The  second  typing  format  contains  a  three-column  table.  The  first 
column,  12  characters  in  width,  contains  the  word  "where,"  left  justi¬ 
fied  in  the  first  row.  The  first  column  is  blank  for  all  other  rows. 

The  text  in  the  second  column,  24  characters  in  width,  will  be  typed 
left  justified  and  in  italics.  Stop  codes  should  be  placed  to  allow 
type  ball  changes.  The  text  in  the  third  column,  35  characters  in 
width,  will  be  typed  left  justified  in  regular  type.  .'  The  first  column 
should  have  12  spaces,  the  second  column  24  spaces;'  and  36  for  the  third 
column.  The  first  word  should  not  be  capitalized. 

7.  FIELD  OPTIONS.  The  field  options  section  is  composed  of  a  three- 
col  umrr7~?rspaces  each,  table.  The  table  rows  are  separated  by  one 
skipped  line,  one  straight  line,  and  one  skipped  line.  The  column 
titles  "FIELD,  OPTIONS,  DEFAULT"  should  appear  on  each  page  that  con¬ 
tains  this  section.  Text  in  the  first  column  is  in  italics,  and  the 
rows  are  numbered  by  integers  with  a  period  and  2  spaces  following  the 
integer.  The  second  and  third  columns  are  in  normal  type.  The  first, 
second,  and  third  columns  should  be  24  spaces  wide.  The  first  word 
should  not  be  capitalized.  Leave  at  least  2  spaces  between  columns. 

8.  SPECIAL  NOTES.  Use  italics  where  noted. 

9.  EXECUTION  PROCEDURES.  Use  italics  where  noted. 

10.  COMMAND  VARIATIONS .  Each  variation  may  contain  the  following  for¬ 
mats:  The  first  is  tne  variation  number,  left  justified,  marked  "Var. 
#n".  This  is  followed  by  the  command  in  upper  case  regular,  then  the 
TEalics  type.  This  line  should  be  underlined.  The  second  is  the  Exam¬ 
ple  number  indented  5  spaces  and  underlined.  The  general  form  of  the 
third  format  indented  5  spaces  and  underlined  is: 

Text  before: 

Command: 

Text  after: 


11.  MESSAGES .  If  no  messages  are  to  be  typed  the  phrase  "All  messages 
self-explanatory"  should  be  placed  after  "MESSAGES." 


;;  z  l;»cs 

PURPOSE 


Zui/cs 


This  edit  connand  allows  the  user  with  write  access  to  insert  a  new  line 
of  text  into  an  existing  document.  _ 

v/  2.  L  iy\c.s 

GENERAL  FORM 


\ 


,EN  ter  line  number;  text;  text  segment  id 


3  L  \\\*  5 


line  number 

text 


FIELD 


is  the  1-  to  8-digit  line  number  of  the 
new  text  to  be  inserted. 

is  line  of  not  more  than  384  char¬ 
acters,  counting  capital  letters 
twice.  The  string  must  be  enclosed 
in  parentheses  or  a  special  charac- 

*er#  3  36>  Spaces 


OPTIONS 


1.  line  number 

valid  line  number 

1  L  IN  c  ~T 

2.  text 

1  Uu±  'l 

1-384  alphanumeric 

characters,  counting 

capital  letters  twice 
*  *> 

'  2  " 

DEFAULT 


add  text  line  to  end  of 
document. 


no  default,  field  re- 


ENTER 
El 


FIELD 


OPTIONS 


DEFAULT 


3.  text  segment  1-  to  4-character  alpha-  no  text  segment 

numeric  Id.  assigned. 


' f  \ 2.  Livfcj 

SPECIAL  NOTES  -  None  - ^ - 


J,  7-  L  i  vi  r  J 

EXECUTION  PROCEDURE  -  - 

y  Z  6  V  v>  O 

If  the  1  ine  number  field  is  blank,  then  the  document's  current  increment 
is  added  to  the  last  number  in  the  document  to  calculate  the  entered 
text  line  number.  dv 

v,  Z  Line  2 

COMMAND  VARIATIONS  - - - 


Var. *  *1.  .EN  line  number;  izexi)  text  segment 


'i'  Lines 


Example  #1. 


Text  before: 


LN 

lTffOO 

14200 


Text  Table 
Text 

Additional  -  shingles 

*p3*open  — — —  accordance 


Command:  .EN_14100;  (on  each  side  of  the  valley);A. 


Text  after: 
LN 

flffOO 

14100 

14200 


Text  Table 
Text 

Additional  -  shingles 

on  each  side  of  the  valley. 
*p3*open - accordance 


The  text  is  entered  on  line  14100  with  a  text  segment  id  of  A. 
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ENTER 

EN 


Example  <1. 

Text  before:  Text  Table 

IN  Text 


13700  two - —  each 

15400  *p3*  — - —  surfaced 


Command:  EN__15300;  (shingle  tab  along  open  metal  valleys.) 
The  text  will  be  added  as  line  15300  with  no  text  segment. 

Text  Table 
Text 

two - each 

shingle  tab  along  open  metal  valleys. 
*pe* - surfaced. 


Text  before: 

LN  '  Text 

22500  construction  — —  wind 

end 


Text  after: 
LN 

13700 

15300 

15400 


Command :  .EN_  (areas  ,*sl*). 


The  new  line  will  be  added  after  line  22500  with  the  documents  in¬ 
crement  (100). 


Text  after: 
IN 

27300 

22600 

end 


Text  Table 
Text  Table 

construction  -  wind 

areas,  *Sl* 


HESS AGES  -  All  messages  sel f-expl anatory. 
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APPENDIX  B 

SIT  TEST  DECK  EXAMPLE 


CP&i-  "T &>T  D 

.NEW  PRINTTEST8TEST0ATA  • 

-.€©K~~PRInTTEST  .- 
.INPUT  . 

This  DOCUMENT  TESTS  THF'PRtNT*  COMMAND  .  all  fiflo  will  be  tested  fop  each 
SUBFIElD  DELImETER  ANO  EACH  PARAMFTFP  TYPE  . 

THE  PR  I  "IT  COF“A*JD  MUST  INTERACT  WITH  THE  BEGIN  PARAGRAPH  AND  PAGE  NUMBER 
COMMANOS.  AMO  ALL  FORMAT  TABLES. 

there  are  no  interrelationships  between  fields. 

INITIALIZATION  rfgui°eo  to  TEST  PP I NT  CO-MANO 
DEFINE  DOCUMENT  FORMAT  UNDER  ID  OF  1  &  22 
FIELD  1  -  OOCU-ENT  FORMAT  JO 

TEST  NUMBER  DESCRIPTION 

1.  BLANK  FIELO  -(E*10 

2.  NOT  IN  THE  SYSTEM  TA8LE-<EX  30 

3.  MORE  Than  EIGHT  INTEGER  CHARACTERS  fEX23 

4.  IN  THE  SYSTEM  Table  (EX1.8.9.11  ThR 
FIELD  2  -  COLUMNS  TO  *E  PRINTED 

5.  BLANK  FIELD  (EX8.9.23 

6.  UNALLOARLE  LETTER  (EX1.10 

7.  LENGTH  GREATER  THAN  ONE  CHARACTER  IEx2 

8.  F  1  At  U.-F  (EX12.3I 

9.  L  IT  lS.-L<EX13t32 

10.  T  18  16.-T (CXI  1 .33 

11.  A  21  17.-AIEX12.31 

12.  X  20.  1A.-X<E*U 

13.  P  21.  19.-PIEX22 

20.  REPETITION  OF  THE  SAME  CHARACTER  CEX14 


21. 

BOTH  THE 

LETTER  ANO 

ITS  NEGATIVE  (EXl 4 

FIELD  3  - 

ARFA 

STARTING 

ENDING 

TEXT  SEGMFNTS 

LINE  NO. 

LINE  NO. 

ONE 

TWO 

three 

22. 

BLANK 

BLANK 

blank 

BLANK 

BLANK 

(FXR.9 

23. 

0 

0 

blank 

BLANK 

BLANK 

(FX 1 0.20 

24. 

0 

GTR  SLN 

blank 

BLANK 

BLANK 

(EX  1 1 

25. 

0 

LES  SLN 

BLANK 

BLANK 

BLANK 

(FX12 

26. 

GTR  ELN 

0 

blank 

blank 

BLANK 

(EX13 

27. 

LES  ELN 

0 

blank 

Blank 

blank 

(EX14 

28. 

0 

0 

value 1 

VALUE? 

VALUES (EX34 

29. 

BLANK 

BLANK 

VALUE  1 

VALUE? 

(EX  16. 1 7 

30. 

NUMBER 

NUMBER 

VAUUE1 

(EXl  8 

4 

31. 

9  CTR  NO 

9  CTR  NO 

VALUE 1 

VALUE) 

(EX23C9) . 

12 

32.  5  CTR  ALP  5CTR  ALPHA  (FX13 

33.  ONE  OR  THREE  NOS  FOUR  TEXT  SEGMENTS (EX24, 25. 26. 27 

34.  A  TEXT  SEGMENT  LINE  NUMBER  LIST  IEX35 

34. B  NUMRCR1  NUMBER l  CFXl 

34.  C  NUMBER  (EXl 

34.0  7ERO  BLANK  (EX15.19 

FICIO  4  -  LINE  SPACING 

35.  BLANK  (EX8.9 

36.  8  (EX14 

37.  SINGLE-1  (EXl. 18 
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38.  00UHLE-2  (EXPO 
30.  3*  (EX10.11 

40.  Two  humhF»S  (EXIT. 23 
FIELD  5-  NO  INDEX  NOP  TABLE  CPEATION 

41.  BLANK  (EX8.9 

42.  ZE»U(EX1* 

43.  ONE  (EX1.18 

44.  Two  ♦  (EX10.11 

45.  Two  NUMBERS  (EXIT. 23 
FIELD  6-  LOGIC  CONDITION  OVE»  RIDE 

46.  BLANK  (FX8.9 
4T.  ZEPO  ( E X 1 4 

48.  ONE  (EX1 .18 

49.  TWO  ♦  (EXlO.ll .23 

50.  TWO  NUWHEPS  (EXIT. 23 
FIELD  T  -  OUTPUT  DEVICE  NUMBER 

51.  BLANK  <E*8»9 

52.  ZEPO  (EX14 

53.  ONF  (EX  1  •  1 8 

54.  TWO  ♦  (EXlO.ll 

55.  TWO  numbers (EXIT 

field  a  -  paoe/pahagraph  number  initialization 

56.  BLANK  (EXA.9 

57.  ZEPO  ( E X 1 4 
56  ONE  (Ex  1 « 18 

59  Two  ♦  (EXlO.ll 

60  TWO  NUMBERS  (EXIT 
S*  SYNTAX  ERROO 

EXAMPLE  1  -  ONE  CHARACTER  NUMERIC  FOR  EACH  FIELO  AND  SUBFIE^D 

Fl-4 JF2-6(5) ;F3-34B.C;F4-3T:F5-a3;F*-405F7-53(F8-58 
PR  II  1*  1*  1.  1.  II  1-  1.  1.  1«  II  1  I  1  I  1  *  1  I  1. 

EXAMPLE  2  -  ONE  CHAPACTER  ALPHABETIC  FOR  EACH  FIELD  ANO  SUBFIELD  F2-  7 
F1-SIF2-11 (5) lF3-S.SlF4-SIF5-SIF6-SlF7-S»F«-S 
•PR  At  AA.  A.  A.  A.  At  A-  A.  A.  A.  A{  A  I  A  I  A  |  A  I  A. 

EXAMPLE  3  -  ONE  CHARACTER  ALPHABETIC  IN  DELIMITFPS 
F1-SIF2-S;F3-S»54-SIF5-S1F6-SIF7-SIfB-S 

.PR  (All  (A).  ...  I  ( A 1  —  (A).  (A).  (A).  (All  (All  (Alt  (AM  (A)I(A)  . 

EXAMPLE  4  -  ONE  HYPHEN  IN  EACH  FIELD  -  SYNTAX 
.PR  -  I  -»-**♦  I  --  -I  -  I  -  I  -  «  -  I-  . 

EXAMPLE  5  -  ONE  COMMA  IN  EACH  FIELO  -  SYNTAX 
•PR  «t  »*»»!  .  *  .*  ..  ..  .1.1  *1*1*1.. 

EXAMPLE  6  -  DOUBLE  ASTERIX  IN  EACH  FIELOSYNTAX 
•PR  ••  |  i  ••  -  ..  .  ••  *  *•  .  *•  |  **  |  DO  I  ••  I  ••  I  •*  . 

,  EXAMPLE  7  -  ONE  PLUS  IN  EACH  FIELD 

•PR  ♦  I  «»♦*♦♦♦,  ♦!  ♦  -  ♦»  »*  **  ♦  I  ♦  1  *  I  *1  41  ♦. 

EXAMPLE  8  -  COMPLETE  OEFAULT  OPTION  WITH  DELIMETERS 

F1-1IF2-5IF3-221F4-355F5-41 JF6-46.FT-51.FB-56 
•PR  II***. I  -  .  *  *  I  I  I  I  I  • 

EXAMPLE  9  -  COMPLETE  DEFAULT  OPTION  WITH  NO  DELIMETERS 
F1-1IF2  TMR  F8  BLANK 

EXAMPLE  10-  Fl-1 IF2-6 (3) 1F3-23IF4-S.39IF5-S.44 IF6-S*49IF7-S.54 IF8-S.59 
•PR  I  B*  C.  D.  .  I  0-0  .  *  *  I  -5  I  -5  I  -5  I  -51  -5  . 

EXAMPLE  11-  Fl-4 IF2-16. 181F3-24 IF4-391F5-44 IF6-49IF7-54IF8-59 
•PR  221  -X.-T.  .  .  I  0-9999  .  .  .  I  5  I  5  I  5  I  51  5. 

EXAMPLE  12-  F1-4IF2-14.17IF3-251F4  TMR  F8  PLANk  F3-ALSO-31 
•PR  221  — F »— A  *  *  *  I  0-1  «TSA  *TSA  *TSA  I  I  I  «  I  • 


I 
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*  EXAMPLE  13-  Fl-41F2-151F3-26tF4  THO  FA  BLANK  F3-ALS0-32 

.PR  ?2t  -L *  *  *  •  1  9A*«-0  » aBCDE *  «  1  1  t  1  » 

EXAMPLE  1*-  F1-45F2-20.21 ;F3-27tF4-36;F5-4?;F6-A7;F7-b25F8-S7 
.PR  22?  — F«-F •  F«  «  t  1-0  «  *  •  1  0  «  0  I  01  010 

EXAMPLE  15-  F1-4IF2-6JF3-34D5F4  ThP  FA  NO  PP0C£«SING 
•PR  221  F»  *  •  •  1  0-  •  TSGO.  ]TSG«  2T5GI  lilt 

EXAMPLE  10-  Fl-4lF2-8;F3-?9; 

•PR  221  F.  «  *  .  I  •  TSGO.  1TSG.  2TSG;  1  *  I  I 

example  17-  fi-4;f2-9;f3-29;f4-17;fs-4s;f#,-5o;F7-55;fb-i7 
•PR  22;  L.  ...  I  -  .  TSGO.  1TSG.  t  12  1  12  »  12  I  12  I  12 

CXAMPLf  18-  Fl-4tF2-10tF3-305F4  THR  f 3  ONE 
.PR  22;  T.  .  »  .  I  1-9999  •  TSGO.  .  I  1  I  1  I  1«  1U 

EXAMPLE  19-  F1-41F2— 11 1F3- 

•PR  22;  A.  .  .  •  ;  -9999  .  *  «  <  I  I  *  » 

EXAMPLE  20-  F1-41F2-12.F3-23  F4-38 

•pr  2?;  x.  .  «  .  ;  o-o  .  •  *»2i  t  t  i 

EXAMPLE  21-  F1-4;F2-13.H 

•PR  22*  P  »A  ...  *  -  •  •  •  I  I  I  I  I 

EXAMPLE  22-  F1-41F2-19. 

•PR  221  -P..«.t  -  «  .  •  (till 

EXAMPLE  23-  F1-3;F2-5;F3-31 ;F4  TMR  fa  -.ctps 
•PR  123496789;  .*123456789-123456789;  1234567891 1234567895  1234S6789;  1234567891 
EXAMPLE  24-  F1-45F2-S5F3-33 

•  123456789. 

•PR  11*2-  3.4-5. 

EXAMPLE  25-  F1-41F2-51F3-33 
•PR  11*2-  .4-  . 

EXAMPLE  26-  FI -4 1F2-51F3— 33 
•PR  111-3.  -5. 

EXAMPLE  27-  Fl-4?F2-5lF3-33 
•PR  li;  41 .A2.A3.A4.A5. 

EXAMPLE  28  ALL  FIELDS  MISSING 
•PR  . 

EXAMPLE  29  TOO  MANY  FIELDS  -ALL  BLANK 

•pr  i t ;;;;;;;;;;;  t ; ; ;;;  i ;  . 

EXAMPLF  30  Fl-21 

•PR  4. 

EXAMPLE  31  F1-41F2— 14 

•PR  ll-F.-A. 

EXAMPLE  32  FI-41F2-15 

•PR  ll-L. 

EXAMPLE  33  F1-41F2-16 

.PR  1 l-T. 

EXAMPLE  34  E1-4;F?51F3-2B 

.PR  ltlTSG0.lT9G.2TSG. 

EXAMPLF  35  F1-41F2-51F3-34A 

•PR  1I1TSG0.1T5G.2TSG. 1-999. 

•STORE. 

•EOIT  PRINTTEST. 

•EX  til. 

•STORE. 
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Voca  I'^tVTPrTXc// 


SUBROUTINE  PRINT  (STRNG.PMPTR) 

PROGRAM  NAME:  PRINT  ISTRNG.PMPTR) 

function:  this  routine  Checks  all  input  data  and  prints  all  errors,  it 

THEN  TRANSFERS  CONTROL  TO  (PRMON)  TO  DO  PRINTING. 

AUTHOR:  unknown  august  1R76 
MODIFICATIONS:  NEELY  SEPT  76 
LANGUAGE:  FORTRAN 

CALLING  SEQUENCE  :  STPNG=TH£  STRING  OF  CHARACTERS  REPRESENTING  THE 

USERS  INPUT  COMMAND. 

PMPTRsA  Z-DIMENSIONAL  ARRAY  CONTAINING  THE 

DESCRIPTION  AND  LOCATION  OF  ALL  PARAMETER 
FIELDS  WITHIN  THE  USERS  COMMAND-STRNG. 

ROUTINES  CALLED: 

INTER-FUNCTION  TO  FORM  AN  INTEGER. 

UNPAK 

LNLIM  =  OBTAUNS  FIRST  ANO  LAST  LINE  NUMBERS 

PRMON  PRINTS  TEXT 

TBLCS-RECORD  LOCATE  IN  TABLE 
ICOPY- 

TASKS  OR  modules: 
variables: 

STRNGdls  USERS  COmmanO 

pmptr(  100.31=  <5<j  parameter  fields. 3  columns-ist  ctr. length, type 

NPRIxNO  OF  THE  DEVICE  TO  PLACE  THE  PRINTED  DOCUMENT  ON 
FLGOP 16) *  DATA  COLUMNS  TO  BE  PRINTED:  1-  X-50  .2-  38-L 

3-32-F  4-46-T  5-27- A  6-42-P 

IMERR=  1-GENERAL  ERROR  MESSAGE  PRINTED.  O-NOT  PRINTED  FOR  ONE  FIELD. 
IERR  =  O-NO  ERRORS.  I-  ERRORS.  STOP  AFTER  PARAMETER  ANALYSIS 
MODE  =  THE  FIELD  NO.  BEING  PROCESSED.  NUMBERED  IN  ORDER  1  TO  8 
IMYPH*  0=HYPHEN  NOT  PREVIOUS  OELIM.  1=  HYPHEN  IS  PREV  DELlM. 

IELN*  ENDING  LINE  NUMBER  TO  PRINT. USER  INPUT 

ISLN=  STARTING  LINE  NO  TO  PRINT. USER  INPUT 

ISEG=  TEXT  SEGMENT  1  THR3 

EDITF-  TABLE  BEING  EDITEO 

ISPAC=  LINE  SPACING01=SINGLE  2=  OOUBLE 

ICNT  =  NO.  OF  PARMS  PLUS  ONE  -ROW  LOCATION  OF  LAST  PARAMETER 
ITYPE=  PARM.  TYPE 

IPTR  *  1ST  CTR  OF  PARM.  IN  STRNG  ARRAY 

LENG  *  PARM.  CTR  LENGTH 

OEBUGx  2  OR  GTR  FOR  DEBUG  TESTING 

FLGNM-  1-S0*X  ,2-38=L  »3-32=F  ,4-46=T  .5-27*  A  ALL  AVAILABLE  FIELDS 

6-3 1=E 

LETTER  *  THE  COLUMN  PRINT  OPTION  USER  INPUT  VALUE 
JSLN*  STARTING  LINE  NO.  IN  TEXT  TABLE. 

JELN*  ENDING  LINE  NO.  IN  TEXT  TABLE. 

I SET*  1*PRINT  .-1*  NO  PRINT 
1  *  THE  ROW  IN  PMPTR  BEING  ANALJZED. 

J  COUNTER 

NPPIN-  NO  P/P  INITIALIZATION 

NOD-NUMBER  OF  OUTPUT  DEVICE  0  OR  l 

NPRF-  ACTUAL  PRINT  OEVICE  - 


32 


UUUUUUUUU  '  »UUUUUUUUUUUU  UUUUU  UUUU 


LCO/  LOGIC  CHECK  OvEPRIDE 
NITC/  NO  INOEX/TABLE  CONTENTS 
IRELN-  ELN  «EC  ID 
IRSLN-  SLN  PEC  ID 
IROFI-  DOC  FHT  ID  HEC  ID 
FILMN-  FILE  NAm£  FOP  DATA  HANDLER 
sysfl-  SYSTEM  file  name 

ISOOC-  DOC  FOPHAT  TAfaLE  WORD  and  FIPST  REC  ID 
IS  *  TEXT  SEG  COUNTER  1-3  APE  VALID 
JBLNK  =  BLANK  word  -EDITSPEC  EDT8L 

I SET  =  PRINT  COLUMN  INDICATOR  l=Y£S.  -1  =  NO 
ISHID  =  SUPER  HEADER  RECORD  ID 
I«DR  =  HEADER  RECORD 

ITEM  s  ( • ) LOC A T I ON  OF  ITEM  IN  HEADER  .C-)NOT  FOUND* WOULD 
APPEAR  BEFORE  This  ITEM 
LOC  *  LOCATION  OF  RECORD  ID  IN  HEADER. 

LNP  LINE  NUMBERS  PROCESSED 
IFORMs  DOCUMENT  FORMAT  ID 
HE5G  =  MESSAGE  DEVICE  NUMBER 
DFDRC (48) =  DOCUMENT  FORMAT  DATA  RECORD 
II  *  NUMBER  OF  CHARACTERS  IN  DOC  F“T  DATA  RECORD 
NC  *  NUMBER  OF  CHARACTERS  READ  FROM  DKGET 
NPRTs  UNIT  NUMBER  FOR  PRINT  DOC  ON  THE  TERMINAL 
NPRPs  UNIT  NUMBER  FOR  PRINT  DOC  ON  HIGH  SPEED  PTR 
J  «  LOCATION  OF  THE  NEXT  PARAMETER  WHICH  SHOULD  BE  A  HYPHEN. 

PROGRAM  LOGIC: 


BLANK  COMMON  AND  EDITSPEC  EQUIVALENCES 
INTEGER  FILNM(a) 

INTEGER  RVRSE.TRU.FALS. ZEROS. ONES.FOLID.PREID.FSTAT.P 
COMMON  PC 200) 

EQUIVALENCE  CP (5) »N8W) . <P<6) ,NCw) • CP  C7> ,NAm> • CPCB) .NBC) . CPC9) ,NCU) 
EQUIVALENCE  <P  C 1 0  > .NBu) . CP  < \\ ) ,NAU) . CP  C 12) .N8U2) . CP  C 13) .NC2U) 
EQUIVALENCE  CP  CIA) .RVRSE) , CPC  15) .N*PSU> . CP C 15) .LF IW> . CP C 1 7) .LFIWU) 
EQUIVALENCE  CPC2AJ ,ICRD) . <P<?5> .IPRT) . (PC  26) .IPCh) . CP (27) . I  TAP) 
EQUIVALENCE  (PC  38) .TRU> . (P<39) .FALS) . CP C AO) .ZEROS) . CP(Al) .ONES) 
EQUIVALENCE  CPC  187) .MAXGP) . CPC  188) .NDS> . CPC1B9) .FlLNM(l) ) 
EQUIVALENCE  CP  Cl  93) .FOLIO) . CP ( 1 9A ) .PRE ID) . CP (195) .LRLEN) 
EQUIVALENCE  CP (196) .FSTAT) . (PC197) .NDA) . CP ( 1 98) . 1DHTR) 

EQUIVALENCE  CPC199) .IOHER) . (PC200) .IOKER) 


SYSTEM  COMMON 

INTEGER  SDS.SBDS^SYSFL. DEBUG. BATCH, USID.EDTBL 
LOGICAL  MULTI. BAKUP 

common  /SYSTM/  IBLNK, JBLNK. SOS. SBDS. SYSFL (A) .USIDC3) .LOGGO. MULTI 
1BAKUP.0ATCH. DEBUG. ISQTYC5.13) 

OIMENSION  ISACSCS) .ISCHAC5) .ISDIRCS).ISSPC(S) .ISUSR(S). 

1 ISOOC (5) .ISFOFCS) .ISHEFC5).1SPGNCS) .ISPRFC5) . ISPRN CS) . ISTTF <5) . 
2ISBAK (5) 

EQUIVALENCE  CISACSC1) .ISOTYC1.  1 ) ) . ( ISCha (I) .ISQTYCt.  2)) 
EQUIVALENCE  (ISDIRCD.ISOTyU.  3)).CISS?CC1).IS0TYC1.  A)) 
EQUIVALENCE  CISUSRCD.ISQTYU,  S) )  .  ( ISOOC  (l)  .ISQTYC1.  6)) 
EQUIVALENCE  CISFOF(l), ISOTYC1.  7 ) ) , C ISh£F ( 1 ) . I SOTY C 1 .  8)) 
EQUIVALENCE  C ISPGN ( l ) • I SOTY ( 1 .  9) 1 • CISPRF U ) . ISOTY C I • 10) I 
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EQUIVALENCE 

equivalence 

EQUIVALENCE 


( I SP*N I I ) » ISOTY ( 1 •111)* ( ISTTF ( |) •ISOTY (1*12)) 
(ISBAftU)  ,ISQTY<1.13)  ) 

(EOTBL* IdLNK) « (MCMBL. JBLNK ) 


DOCUMENT  EDIT  COMMON 
INTEGER  EDITF .E0S.E8DS 
LOGICAL  ereao 

common  /EDITC/  EDITF (4) .EDS 
I  IT0TY(5.15). 

DIMENSION  I T AUG (5) «ITAU0(5> 

1  ITERC(S) .ITERL <5) 

2  ITLC  <5>.ITPUL<5> 
EQUIVALENCE  (ITAUGd) .ITOTY 

( ITAUT ( 1 )  « ITOTY 
(ITERT(l) .ITOTY 
(ITERLU).  ITOTY 
IITFLGU).  ITOTY 
< I TLC  (1).  ITOTY 
< ITABC  < 1 ) .ITOTY 
(ITBAK(l) .ITOTY 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


.EBDS.EREAD. IEDIT.MGO. ICYC* IDAC. INC. 
I  ERR 
.ITAUT  I 
•  ITERS  i 
.ITABCI 
<1 .  i> : 

(1  .  3) 


(1. 

(l. 

(l. 

u. 


S) 

7) 

<?) 

m 


(1.13) 

(1.15) 


(5) . I TDPT (5) 
(5) .ITELG(S) 
(5) . I  TEXT (5) 
>  .  ( ITAUOI 1 
. ( I  TORT ( 1 
. (ITERC(1 
.  (ITERSd 
. ( I T I X  (1 
. ( ITPUL ( 1 
. ( I  TEXT ( 1 


. ITEPT (5) . 

. I T I X  (5). 

. ITBAK (5) 

I TQTY ( 1 .  2)) 
ITOTY ( 1 .  4>) 
I TQTY ( l .  6)) 
I TQTY ( 1 .  8) ) 
I TQTY ( 1 . 1 0  > ) 
ITOTY ( l « 1 2) ) 
ITOTY (1.14) ) 


I/O  UNIT  NUMBERS 

COMMON  /IOC/  INP1.INP2.NLST.NPRO.NECO.NPRI.MESG  .NPRT.NPRP 


READ  ANO  PARSE  COMMAND  ROUTINES  COMMON  AREA. 

INTEGER  EBUEE.PMPTR.STRNG 
LOGICAL  EOFIL.NXTRO.CMOOK 

COMMON  /PARSC/E8UEE (400) .STRNG (400) .PMPTRC 100.3). NXTLN (80) * 
1  NCHAR.ISUB. EOFIL.NXTRO.CMOOK 


AUXILIARY  MACHINE  SPECIFIC  CONSTANTS 

COMMON  /MC/  MAXCH, IwOl .NCUM, IWD2.NCUM2.NCU2. IWD3 


TABLE  HANDLING  ROUTINES  COMMON  AREA 
COMMON  /TABLC/  NLOC, ISHOR ( 1 1 > , IRHDM (243) 


PRINT  ROUTINES  COMMON  AREA 
COMMON  /PRINT/  NITC.LCO.NOO.NPPNI 
1  «  DF0RCI48) .IRSLN.IRELN.ISPAC.ISEGC3) 

INTEGER  EOITF  .DFORC 

OIMENSION  IH0RI243) 

INTEGER  FLGNM(ft) ,FLGOP(6) 

1  .STRNG ( 1 )  . PMPTR  ( 1 00 .*3) 

.  .  OATA  FLGNM/50.38.32.46.27.42/ 

e 


4 
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C— — PUT  POINTED  DOCUMENT  OUT  ON-  F T08F001  OP  FT07  HIGH  SPEED  PTR 

C  •••  THE  FOLLOWING  10  C4»0S  APE  FOP  DEBUG  ONLY 
IF  C0E9UG  .NE.  2  )  GO  TO  9994 
12*  PMPT»(1 ,3)  *1 

H*  (PMPTP(  I2«  1 1  ♦  PmPTR(I2,2»  /  NCU  ♦  1 
WRITE (MESG.9996)  (STRNG(I) .1=1,11) 

9996  FORMAT <1H  .  1 2Z1 0  ) 

WRITEt  MESG.9995) 

1  I(PMPTR(I.J),J*1,3),1=1,I2) 

9995  FORMAT  <1H  .3014  ) 

9994  CONTINUE 

O  INITIAL  ALL  VARIABLES  TO  THE  DEFAULT  OPTIONS. 

LNP=0 

IS=0 

NITC  *  0 
LCO  s  0 
NOD  =  0 
NPRI=NPRT 
NPPINs  0 
DO  4  1=  1,3 

*  ISEG(I 1 =  EOTBL 

C-  HARK  COLUMNS  TO  aE  PRINTED  AS  ZERO  FOR  NO  DECISSION  MADE. 

DO  3  1=1.6 
FLGOP ( I ) =0 
3  continue 

C  SET  TO  -1  TO  INDICATE  NO  USER  ENTRY 
IELN=  -i 
ISLN*  -1 
(MERRsO 
IERR=0 
MODE=l 
IHYPH=0 
IFORMsO 
ISPAC=1 

C-  CHECK  FOR  NO  PARAMETERS  IN  COMMAND.  GTR  THAN  O.LESS  THAN  35 
ICNT  =  PMPTR ( 1 ,3) • 1 
IFtICNT  .LE.  1 ) GO  TO  991 
IF (ICNT  .GT.  37) GO  TO  9>2 


PROCESS  EACH  PARAMETER  IN  SEQUENCE.  CHECK  FOR  ALL  ERRORS. 


f 


5  DO  500  1=2. ICNT 
ITyPE=PmPTR  < I «  3 ) 
IPTR  sPMPTR ( I » 1 ) 
LCNG  sPMPTR (1.2) 
IF (DEBUG  .EQ.  2 


)  WRITE (6.9000)  I.ITYPE.IPTR.LENG 


/1/4* 

tu  .  °t 
P/4n»vf  •*****!  + 


9000  FORMAT I20H  I.ITYPE.IPTR.LENG  *,  415  > 


e 


35 


I 

I 

I 


'20. 900. *0.50. 60. 900, 900)  .ITYPE^-  I  ravis 


FtelAlTf  p* 

4r-Troy.>^u  aw 
natft Lsr  n\ 


I*  Haze  (lit 

-RS. 

900<f°£>  180.130.1*0,160.170)  .MODE 


S«; 


9959 


.i-E.  3  >  GO  TO  959  .  .  %  I  -  _  .  / 

WRITE  ihesg/9959)  GO  l*i1  *H  Q  net 

FORMAT  (5/,*5rt*«»  DOCUMENT  FORMAT  GREATER  THAN  8  CHARACTERS  ) 
IERR=1  / 

GO  TO  500  / 

959  CONTINUE 

IFORM  a  INTER (STRNG.IPTR.LENG) 

C  LOAD  THE  OOCUfiNT  FORMAT  TABLE  INTO  THE  DATA  HANDLER  FILE  LOCATION 

600  DO  601  /  J=1 «* 

601  FILNM(jJ  =  ISOOC(J) 

ISHIO  /  =  ISUOC(S) 

CALL  T3LCS(  ISHID. IFORM. IHDR.ITEM.LOC) 

•IF (ITEM  .GT.  0  )  GO  TO  602 
9*0  WRITE/  (MESG.99*0> 

99*0  FORMAT (5X.35H***  DOCUMENT  FORMAT  DOES  NOT  EXIST.) 

IERf^l 

GO  TO  500 
riRDFIalhDR(LOC) 

:AO  THE  OATA  RECORD  INTO  PRINT  COMMON  FOR  USE  IN*PRMON'ROUTlNE 
Il=NCU*  *8 

CALL  DKGET ( I RDF I .OFORC. 1,11 ,NC  ) 

GO  TO  500 


L I N'E  N"m°£&£ 

“II-  IlNR  .tO.  1 )  GO  TO  9111 

J«I*1 

IF  UPMPTR(J»3)  .EQ.  5)  .OR.  (IHYPH  .EO.  1>)G0  TO  111 
GO  TO  911 

•  111  IF  CIHYPH)  110, m. 120 

C-  HAVE  A  STARTING  LINE  NO. .PROCESS  THE  NO. 

110  IF  (  LENG  .LE.  8 >  GO  TO  957 
112  WRITE (  ME SG, 9955) 

9955  FORMAT (  5x.*0H**»  LINE  NUMBER  MUST  BE  1  TO  8  INTEGERS  ) 

IERR«i 
GO  TO  500 

957  ISLN  *  INTER (STRNG.IPTR, LENG) 

GO  TO  500 

C-  IF  A  HYPHEN  ENCOUNTERED  PREVIOUSLY  WE  HAVE  ENDING  LINE  NO.  (AREA  FIELD). 
120  IF(LENG  .LE.  8) GO  TO  959 
WRITE (MESG,  99S5) 

1ERR-1 

GO  TO  500 

959  IELN  ■  INTER (STRNG.IPTR, LENG) 
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!F(1  .LT.  ICNTJGO  TO  500 


•  CHECK  TO  SEE  IF  THE  USER  has  GIVEN  BOTH  A  START  AND  END  LINE  NUMBER. 

»  either  start  OR  END  line  has  BEEN  SPECIFIED.  DETERMINE  WHICH  and 

•  I SET  OEFAULT  FOR  THE  OTHER. 

510  JSLNsl 

JELNa99999999 

IF  1  ISEG(l)  .EO.  ISEG (2)  >  WRITE CHESG. 5001  ) 

IF<  1SEG<1)  .EO.  1 SEG ( 3 )  J  WRITE<“ESG,5001  > 

IF  I  ISEG12)  .EO.  I SEG (3)  J  WRITE  P-ESG, 5001  > 

>ooi  format  (  5x.32h»**  duplicate  text  segment  io  > 

IF  ( ISLN  .LE.  0)  ISLN  s  JSLN 
IF  (IELN  .LE.  OJ  IELN  a  JElN 

IF  C  ISLN  .  LT.  JSLN  J  iSLNa  JSLN 

IF  <  IELN  .  GT.  JELN  )  IELNs  JELN 

•  CHECK  TO  BE  SURE  THAT  BOTH  STARTING  AND  ENDING  LINES  EXIST. 

550,  00  S57  J=1.4 

FILNM(JJs  I  TEXT ( J) 

557  CONTINUE 

ISHID  a  I  TEXT (SI 

CALL  TBLCS  UShID.  I SLN. IhOR, ITEm.LOC) 

IF <1 TEM  .GT.  0)  GO  TO  556 
0  WRITE (MESG. 9930) 

30  FORMAT (5X.40H***  STARTING  LINE  NUMBER  DOES  NOT  EXIST.) 

WRITE (MESG.5S2)  ISLN 

552  FORMAT (5X. 16h**«  LINE  NUMBER  »  18  ) 

ISLN  a  JHDRI-ITEm) 

WRITE (ME SG. 55 3)  ISLN 

553  FORMAT (5X.46H***  DOES  NOT  EXIST  AND  HAS  BEEN  REPLACED  WITH  »IB  ) 

556  iRSLNalHOR(LOC) 

551  CALL  TBLCS  (ISHID. IELN  . IhOR. ITEM.LOC) 

IF (ITEM  .GT  0  )  GO  TO  554 

1  WRITE  (MESG.9931) 

31  FORMAT (5x*35h««»  ENDING  LINE  NUMBER  DOES  NOT  EXIST.) 

WRITE (MESG. 552)  IELN 
IELN  a  IHDR(-ITEM) 

WRITE (MESG, 553)  IELN 

554  CONTINUE 

IRELNalHOR(LOC) 

CHECK  FOR  SLN  OTR  THAN  ELN 

IF ( I SLN  .LE.  IELN  )  GO  TO  410 
WRITE (MESG, 555) 

555  FORMAT  (  5X.49HW  STARTING  LINE  NO.  GREATER  THAN  ENDING  NUMBER.  > 

I ERR® 1 
GO  TO  410 
111  JalM 

IF(PMPTR(J,3)  .EO.  5)  GO  TO  9112 
IFUHYPH  .EQ.  J)  GO  TO  9112 
GO  TO  911 


.1 


C-  SPACING  HELD  IS  PRESENT. 

>80  ISPAC  =  INTE»<STRNG.1PTR.LENG) 

800  If  ((ISPAC  .GE.  D  .AND.  (ISPAC  .LE.  2  »  I  GO  TO  S00 
WR1TE(M£SG.9950) 

ISPAC=? 

9950  F03maT(5X.SOH*«*  (INE  SPACING  INCORRECT.  DOUBLE  SPACING  ASSUMED) 
GO  TO  500 

9112  WRITE (MESG.91 13) 

9113  FORMAT (5X.38M***  ONLY  ONE  LINE  NUMBER  PAIR  ALLOwEO  I 

1£RR=1 

GO  TO  500 


NITC  *  INTER(STRNG.IPTR.LENG) 

IF  (<  NITC  .GE.  0)  .AND.  (  NITC  .LE.  1  )  )  GO  TO  500 
WRITE (MESG.9R51 ) 

FORMAT (5X.42H***  INOEX  CREATION  INCORRECT.  NONE  CREATED) 
NITC=1 
GO  TO  500 


LCO  *  INTER (STRNG.IPTR.LENG) 

IF  ((  LCO  .GE.  0)  .AND.  (  LCO  .LE.  1  >  )  GO  TO  500 
WRITE (MESG.9952) 

FORMAT (5X.46H***  LOGIC  OVERRIDE  INCORRECT.  OVERRIDE  ASSUMED) 
LCO=l 
GO  TO  500 


NOD  *  INTER (STRNG.IPTR.LENG) 

IF (  NOD  .EQ.  0  )  GO  TO  500 

IF(  NOD  .EQ.  1  )  GO  TO  161 

WRITE (MESG.P9S3) 

FORMAT (5X.A6M***  OUTPUT  DEVICE  INCORRECT.  PRINTER  ASSUMED) 
NPRI=  NPRP 
GO  TO  500 


NPPlNa  INTER (STRNG.IPTR.LENG) 

IF  <(  NPPIN  .GE.  0)  .AND.  (NPPIN  .LE.  1  )  )  GO  TO  500 
WRITE (MESG.R95A) 

FORMAT (5X.50M***  P/P  INITIALIZATION  INCORRECT.  NONE  PERFORMED  ) 
NPPIN* 1 
GO  TO  500 
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) 


ALPHA 

20  60  TO  <900.250. 210*900. 900. 900. 900.900) .MODE 


.  OPTIONS  FIELD  ENCOUNTERED. 

250  CALL  UNPAK1STPNG.IPTR.1.LETTR) 

IF  CLENG  ,L£.  1)  GO  TO  961 
WRITE (MESG. 9961 ) 

>961  FORMAT  <5X.43H**«  COLUMN  CODE  GREATER  THAN  ONE  CHARACTER. 

1  5X . 34H*##  ONLY  THE  FIRST  CHARACTER  USED. 

961  CONTINUE 

OO  260  J*l»6 

IF  <LETTR-FLGNM( J) )  260.270.260 
260  CONTINUE 

60  TO  900 

•  RECORD  OPTION  ENTEREO. 

270  FLG0P<JJ=1 

IF  (IHYPHJ  500.500.275 
275  FL60P<J)=-1 
IHYPH=0 
60  TO  500 


-  AREA  FIELD  -  TEXT  SEGMENT  IS  PRESENT. 

210  J=I*1 

IF IPMPTR < J.3>  .EO.  5)  GO  TO  112 
IF ( IhyPh  .EQ.  1)  GO  TO  112 
IFCLENG-4  J  220.220.911 
911  WRITE  (MESG.9911) 

>911  FORMAT  <  5X.47H***  TEXT  SEGMENT  ID  MUST  BE  1-4  A/N  CHARACTERS.  > 
IERR=1 
60T0  500 

220  IS=  IS* 1 

IF < IS  .LE.  3  >  GO  TO  221 
WRITE (MESG. 99 l?) 

>912  FORMAT (5X.41H***  ONLY  THREE  TEXT  SEGMENT  IDS  PERMITEO.  ) 

IERR*  1 
60  TO  500 

221  CALL  ICOPY  (STRNG.1PTR.LENG. ISEG (IS) .1) 

60  TO  500 


r«J 


-  SEMICOLON  ENCOUNTERED. 

40  60  TO  (410.410.510.410.410.410.410.920) .MODE 

C-  PROCESSING  OF  THIS  PARAMETER  COMPLETE.  MOVE  TO  NEXT  PARM.  RESET  KEYS 
410  M0DE*M0DE*1 
IMERRsO 
IHVPHsO 
60  TO  500 
C 


4 
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c 

c 

4 

4 

c-  hyphen  encountered 

50  GO  TO  (900. 450. *50. 900. 900. 900. 900, 900). MODE  1 

♦SO  iHYPHs l 
GO  TO  500 

c 

4 

c 

c 

c 

C-  comma  ENCOUNTERED 

GO  GO  TO  t 90 0*500*610* 900* 900* 900* 90 0*900) »MODE 
610  LNPsl 

1HYPH«0 

C 

4 

C 

4 

C 

C-  ENO  OF  THE  parameter  PROCESSING 
SOO  CONTINUE 

4 

4 

C 

4 

4 

C 

C 

IF ( 1F0RM  .EO.  0)  GO  TO  991 

C-  IF  TEXT  ONLY  IS  TO  BE  PRINTEO.  SET  UNSELECTED  COLUMNS  TO  NOT  PRINT. 

C-  SET  DEFAULT  PRINT  OPTIONS 
700  1SET=1 

IF  (FLGOP(l)l  720.720*710 
710  ISET*-1 
720  DO  730  J=2.6 

IF  (FLGOP (J> )  730.725,730 
725  FLGOP (J)=ISET 
730  CONTINUE 
FLGOP ( 1 ) *1 

C-  DEBUG  OPTION  PRINT  COMMANDS. 

IF  (DEBUG-2)  9997.9998,9998 

9998  *RITE<MESG,9999>  ISLN, IELN. I FORM, FLGOP, ISP AC, I ERR  DEBUG 

9999  FORMAT (10110)  OEBUG 

C-  CHECK  TO  SEE  IF  ERRORS  FOUND. 

9997  JF(IERR)  850.850,990 
•SO  CONTINUE 

CALL  PRMON( ISLN, IELN. I FORM, FLGOP, ISP AC.  IRDFI . IRSLN. 

1  IRELN1 
1000  CONTINUE 

00  603  J*1.4 

603  FILNM(J)«EDITF(J) 

RETURN 

C 

C 
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A/o-UB.  CLiS  O  P  S7AMAT- 

Fotira^rr  &fip.o&3  Fo£. 

Cf _ pot».'Y  format  fppqp  OMCE  PEp___Ll£lii- 

900^ “mm ""  /I  pi  £?z. 

901  IMERflsi  # 

IERR*1  T**'*  # 

WRITE  (MESG. 9901)  /,/  *P*/ A£  « 

9901  FORMAT  mo^AT  reaoo  rN_  >  #  1  '  '  T"n  ' 

GO  TO  (  903  .9047“9G2.  90s  .  906  .907  ,  908.909)  .MODE  »  ^£|  « 

902  WRITE  (ME SG. 9902)  ^-I1 

9902  FORMAT  < 25x . 80H  AREA  FIELD.  MUST  BE  SLN-ELN < INTEGERS)  AND/OR  3  TEX 

IT  SEGMENTS  (ALPmANIMERIC).  I 

GO  TO  960 

903  WRITE (MESG .990 3)  I 

9903  FORMAT (25X.60H  OOCUMENTM  FORMAT  FIELD.  MUST  BE  A  1  TO  8  CHARACTER 

1  INTEGER.  ) 

GO  TO  960 

904  WRITE (MESG. 9904) 

9904  FORMAT (2SX.  S2M  COLUMNS  TO  BE  PRINTED.  MUST  BE  F.L.T. A.X.P.OR  -  . 

1  ) 

GO  TO  960  E ri££QJ 

905  WRITE  (MESG .9905)  I  * 

9905  FORMAT (2SX.40M  LINE  SPACING  FIELD.  MUST  BE  1  OR  2.  > 

GO  TO  960 

906  WRITE (MESG, 9906) 

9906  FORMAT (25X.SSH  NO  INDEX  ANO  TABLE  CREATION  FIELD  MUST  BE  0  OR  1. 

1  ) 

GO  TO  960 

907  WRITE (MESG, 9907) 

9907  FORMAT (2SX.52M  LOGIC  CONDITION  OVERRIDE  FIELO.  MUST  BE  0  OR  1. 

1  > 

GO  TO  960 

908  WRITE (MESG. 9908) 

9908  FORMAT (25X.48H  OUTPUT  DEVICE  NUMBER  FIELD.  MUST  BE  0  OR  1.  > 

GO  TO  960 

909  WRITE (MESG, 9909) 

9909  FORMAT (25X.67M  NO  PAGE/PARAGRAPH  NUMBER  INITIALIZATION  FIELD.  MUS 

IT  BE  0  OR  1.  ) 

GO  TO  960  — 

C 
C 
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960  60  TO  <  900 1.90 02 *900 3. 9004 .90 05 *90 06 .9007 .900 8  )*ITyPE 


C 

9001  WRITE (MESG. 99001 > 

99001  FORMAT  (5X.22H*** 
GO  TO  500 

9002  wRIT£(M£sG, 99002) 

99002  FORMAT  <SX.27n*** 
GO  TO  500 

9003  WRITE (m£SG. 99003) 

99003  FORMAT  (5X.37h*»« 
GO  TO  500 

9004  WRITE (M£SG. 99004) 

99004  FORMAT  (5X.2SH*** 
GO  TO  500 

9005  WRITE (MESG«9900S) 

99005  FORMAT  (5x.2Cm*«« 
GO  TO  500 

9006  WRITE <m£SG«99006> 

99006  FORMAT  (5X.20M*** 
GO  TO  500 

9007  WRITE (MESG, 99007) 

99007  FORMAT  (SX,29M**« 
GO  TO  500 

9008  WRITE (MESG, 99008) 

99008  FORMAT  <5X*28M»«w 
GO  TO  500 


i-y 


NUMERIC  NOT  VALID.  1 


ALPHANUMERIC  NOT  VALID.  ) 


ALPHANUMERIC  DELIMITED  NOT  VALID.  ) 


SEMI-COLON  NOT  VALID.  > 


HYPHEN  NOT  VALID 


COMMA  NOT  VALID 


OOU8LE  ASTERIX  NOT  VALID  > 
PLUSS  SIGN  NOT  VALID. 


990 

9990 


AyK  -innijfi,  ^  *4-  Uov> 

ftYct  , 

WRITE tMESG. 9920) 

FORMAT (5X*26H*««  TOO  MANY  FIELDS  GIVEN.) 

IFIIFORM  .EQ.  0)  GO  TO  991 
IERR=1 
GO  TO  990 
WRITE  (MESG. 999)) 

GORTOT990*  50H***  N°  F1EL0S  fOUKD.  DOCUMENT  FORMAT  ID  REQUIRED.) 
WRITE  (MESG. 9992) 

GORTOT55*’  «h###  TOO  MANY  FIELOS  FOUND.  PROCESSING  CONTINUES.  ) 
WRITE (MESG. 9990) 

FORMAT (5X,46H*«*  COMMANO  IGNORED.  BUT  PROCESSING  CONTINUES.  ) 

GOTO  1000 

End 


APPENDIX  D 

PROGRAMMING  NOTES  &  PROCEDURES 


D.l  WORK  PROGRESSION 

1.  Users  Manual  Description 
a*  Review  Functional  Criteria. 

b.  Discuss  Functional  Criteria  with  Supervisor. 

c.  Check  all  other  commands  for  possible  interactions. 

4.  Review  table  structure  and  conmand  with  supervisor. 

e.  Review  code  for  additional  knowledge. 

f.  Design  and  write  the  final  description 

g.  Supervisor  review  of  description. 

h.  Typing. 

1.  TIB  review, 
g.  Drafting. 

2.  Complete  Coding 

a.  Review  existing  code. 

b.  Document  code  to  standards. 

c.  Design  coding  changes  to  complete  the  conmand.  Update  table 
descriptions. 

d.  Code  the  changes. 

e.  Design  a  100%  complete  test  deck  that  will  operate  as  a 

stand-alone  run. 

f.  Hand  debug  the  test  run  thoroughly. 

g.  Review  the  test  run  and  hand  calculations  with  your  supervisor. 
k«  Run  on  the  computer. 
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3.  Reporting  Standards 

a.  Each  team  member  will  keep  a  daily  log  book.  This  log  will 
detail  the  tire  spent  on  the  project.  The  log  book  will  be 
daily  dated  and  entries  made  recording  start  and  completion 
times.  Computer  run  costs  will  be  entered  directly  into  the 
log.  Log  books  will  be  checked  by  the  supervisor  no  later  than 
COB  each  Friday. 

b.  All  computer  trailer  sheets  must  be  saved  and  numbered  by  the 
programmer.  Supervisor's  permission  should  be  granted  before 
submission  of  a  computer  run. 

c.  All  decisions  must  be  recorded  in  writing  within  the  log  books 
of  all  parties  involved  in  the  system. 

d.  All  considerations  reviewed  must  be  entered  into  the  log  book 
for  future  reference.  This  log  will  become  a  detailed  daily 
diary  of  your  work. 


D.2  DOCUMENTATION  STANDARDS 


These  standards  apply  to  all  programming  performed. 

All  program  documentation  should  be  contained  in  conments  in  the  pro¬ 
grams.  The  consents  which  will  be  included  in  the  documentation  should 
be  in  the  format  described  below. 

The  resulting  listed  documentation  will  be  in  the  following  format: 

Program  Name:  as  in  the  first  line  of  the  function  or  subroutine, 
with  arguments. 

Function:  brief  description  of  the  function  of  the  program. 

Author:  author's  name,  date  of  first  writing. 

Modifications:  Each  mod  should  be  numbered.  Author,  date  and 
brief^  description  of  the  reason  for  the  change(s).  All  cards  associated 
with  each  mod  should  be  so  numbered  in  c.c.  79-80. 

language:  programming  language. 

Calling  Sequence:  description  of  arguments  and  function  result. 

Routines  Called:  list  of  subroutines  and  functions  called  by  the 
program. 
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Tasks  or  Modules:  tasks  or  modules  containing  this  routine. 

Variables:  a  description  of  all  variables  used  in  the  program. 
C0MM0T7  vanaoies  will  generally  be  described  in  a  "main"  program,  refer¬ 
enced  in  this  section.  Check  to  insure  that  the  command  description  is 
correct.  The  structure  of  arrays  and  meaning  of  variables  should  be 
fully  described. 

Any  figures  or  drawings  which  would  aid  in  the  description  of  an  algo¬ 
rithm  should  be  named  with  the  program  name  and  a  figure  number,,  such  as 
ABC.l  for  program  A3C.  These  are  referenced  from  the  corments  in  the 
subroutine  and  included  in  the  documentation  book. 


D.3  TECHNICAL  DOCUMENTATION  GUIDELINES 


A.  Contents 

1.  All  textual  documentation  will  be  contained  in  comnents  in  the  pro¬ 
grams.  It  will  be  possible  to  obtain  a  listing  of  the  appropriate  com¬ 
ments  separately. 


B.  FORM 

1.  Placement  of  comnents 

All  conraents  start  in  cc7. 

2.  Separating  sections 

Blank  coixient  lines  and  lines  of  asterisks  may  be  used  to  separate 
sections  of  code. 

a.  DO  loops  -  A  blank  comment  line  before  the  00  statement  and  a 
blank  comment  line  after  the  CONTINUE  statement  is  used  to 
'bracket*  major  DO  loops.  Comments  pertaining  to  the  loop  are 
included  within  the  'bracket*. 

b.  Major  headings  are  'bracketed'  by  a  blank  coircnent  line  before 
and  after  the  headings. 

c.  A  line  of  asterisks  may  be  used  to  signify  the  end  of  a  major 
program  section. 

d*  Headings  may  be  caused  to  stand  out  further  by  inserting  a  space 
after  each  character  and  by  using  a  line  of  asterisks  right, 
left,  above*  or  below  the  heading. 

Note:  All  the  above  devices  are  used  to  enhance  clarity  for  anyone 
reading  the  program.  Uniform  use  of  format  within  each  program  system 
will  amplify  the  effectiveness  of  same. 
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3.  Statement  numbers. 

a.  A  FORMAT  statement  follows  the  first  WRITE  or  READ  statement 
using  it. 

b.  Error  messages  start  at  statements  numbered  99,  or  999  or  9999. 

c.  RETURN  is  statement  number  100,  1000,  or  10000. 

d.  Statement  numbers  can  be  sequenced  in  two  ways:  1)  Increasing 
value  sequence,  2)  Collating  sequence.  If  increasing  sequence 
is  used,  the  statement  numbers  should  be  right  justified.  Some 
people  reserve  50 ’ s  for  ending  DO  loops,  and  derive  the  number 
of  a  FORMAT  statement  from  the  associated  READ  or  WRITE  state¬ 
ment  by  adding  'one'.  Read  or  Write  statements  are  frequently 
numbered  in  hundreds: 

1800  WRITE(3,1801)x,y,z 

1801  FORMAT (3F8. 4) 

In  a  long  program  with  many  READs  and  WRITES  1802,3,  etc.  would  be  pref¬ 
erable  to  using  1821,  1822,  etc.,  (If  one  is  in  danger  of  using  up  all 
available  hundreds,  that  is.)  If  Collating  sequence  is  used,  the  state¬ 
ment  numbers  should  be  left  justified.  50's  might  be  reserved  for 
ending  DO  loops.  FORMAT  numbers  may  be  derived  from  associated  READ  or 
WRITE  statement  numbers  of  multiplying  with  10. 

4.  Debugging  statements. 

For  automatic  removal  of  tracers,  traps,  etc.,  an  asterisk  in  cc2 
followed  by  the  number  of  lines  to  be  removed  from  the  final  program 
might  be  used. 


C.  FORTRAN  Standards 


The  American  National  Standard  FORTRAN  (ANSI  x3. 9-1966)  standards 
are  followed  throughout. 


D.  Additional  Guidelines 

1.  FUNCTIONS  may  not  define  or  redefine  any  arguments  or  variables 
In  COMMON. 

2.  DIMENSION  and  TYRE  statements  come  before  COMMON,  which  come 
before  EQUIVALENCE  statements. 

3.  No  recursive  procedures  will  be  written. 

4«  All  00  loops  end  on  unique  CONTINUE  statements. 
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5.  1/0  device  unit  members  should  be  variables  in  COMMON 


6.  All  specifications  statements  appear  before  all  executable 
statements. 

7.  Each  subroutine  or  function  subprogram  has  a  single  entry 
point,  at  the  beginning,  and  a  single  RETURN  statement  as  the 
last  executable  statement. 

8.  Avoid  word-size-,  character-size-,  or  absolute-address- 
dependent  operations.  Similarly,  do  not  assume  the  format  of 
negative  integers  (l's  or  2's  complement)  or  the  internal  re¬ 
presentation  of  character  or  numeric  data. 

9*  Profuse  comments  should  be  used. 


E*  Programming  "Tricks" 

1.  Keep  all  statement  numbers  in  order.  This  can  be  done  by  con¬ 
sidering  all  statement  numbers  having  fewer  than  5  digits  as 
being  filled  with  trailing  zeroes.  This  will  guarantee  that 
statement  numbers  are  not  duplicated  and  that  a  programmer  does 
not  have  to  search  throughout  a  program  to  find  if  a  particular 
Statement  number  has  been  used. 

2.  Filler  variables  in  COMMON  should  be  named  according  to  their 
word  location  in  COMMON.  This  allows  for  easy  computation  of 
the  size  of  filler  arrays  and  insertion  of  new  variables  in 
COMMON. 

3.  Subroutines  should  be  kept  to  less  than  100  executable  state¬ 
ments  if  possible.  Individual  subroutines  should  each  serve 
only  a  single  function. 

4.  Error  and  warning  messages  should  state  in  the  user's  terms 
what  the  problem  is  and  what  action  is  taken  by  the  program. 

5.  Intermediate  output  for  additional  data  should  be  available  by 
changing  an  input  variable.  This  variable  will  set  dump 
switches  which  are  either  stored  or  are  accessible  through 
COMMON. 


F*  Program  Conventions 


1.  If  a  transfer  within  an  IF  statement  is  impossible  under  normal 
data  transfer  to  an  error  message  that  states 

"The  computer  program  has  transferred  to  an  impossible 
location  in  routine  number _ “ 

2.  An  error  message,  written  in  English  phrases,  should  give  the 
user  the  same  information  that  the  computer  has.  The  object  is 
to  provide  maximum  service  to  the  user  and  to  eliminate  all 
confusion. 

3.  During  debugging  list  the  subroutine  parameters  (1)  before  the 
call,  (2)  immediately  inside  the  subroutine,  (3)  before  re¬ 
turning,  (4)  immediately  after  the  return  from  the  call  in  cul¬ 
ling  program.  Place  IF  statements  around  the  debugs  and  mart 
In  Col  73-80  as  GU8ED-C. 

4.  Do  not  remove  existing  coding  cards  from  the  deck.  Mark  a  C  in 
column  one  and  retain. 

5.  Mark  your  card  entries  with  the  number  of  the  modification  in 
card  columns  77-80. 

6.  Standard  error  message  prefix  will  be  (5x,— Hxxx. 

7.  All  common  blocks  will  be  set  up  as  follows: 

a.  Date  Modified 

b.  Common  Statements 

c*  Dimension  Statements 

d.  Equivalence  Statements 

e.  Integer  Statements 

f*  Comment  cards  defining  each  variable  in  order 

8*  Array  ITNM  (3,8)  has  been  added  to  /SYSTM/  common  for  writing 
error  messages.  The  columns  correspond  to  the  parameter  field 
type  values  in  PMPRTR  (  ,3). 

9*  All  system  routines  should  set  FILNM  to  SYSFL  before  returning. 
All  edit  routines  should  set  FILNM  to  EDITF  before  returning. 


u o  ouuouououuooouoouuouuuuuuuouuuuuo 


JULY  22.  1977 
INTEGER  FILNMU) 

INTEGER  RVRSE.  TRU.FALS.ZER0S.0NES.F0LID.PRE1D.FSTAT.P 
COMMON  P (200)  * 

EQUIVALENCE  <p<5) »N3W) , (P(6) ,NCW) » <P<7> »NAW> . (P(8> »NBC) *(P(9) .NCU) 
EQUIVALENCE  (PUOI  .N3U)  ♦  (Pill)  »NAU)  .  (P(12).N9U2).  (P(l3)  «NC2U) 

EQUIVALENCE  (0(14) .RVRSE) .  (P( 15) .NwPSU) . (P ( 16) .LF I V) . (P ( 17) .LFIWU) 
EQUIVALENCE  (P(24) .ICRO) . (P(?5) .1PRT) , (P(26) .IPCH) , (P(27) .ITAP) 
EQUIVALENCE  (P (39) .TSU)  « (P ( 39 ) .FALS ) . (P (40) .ZEROS) . (P (41 ) «ONES) 
EQUIVALENCE  (P<197) .MAX&P) . (P(ie«) «NOS)  .  (P(189>.FILNM(1>) 

EQUIVALENCE  (P ( 193)  .FOLir>>  .  <o<194>  ,PR£IC>  .  (P(195)  .LRLEN) 

EQUIVALENCE  (P ( 196) .FSTAT) . <P(19?) «NDA ) . (P(198> «IOHTR) 

EQUIVALENCE  (P(199) »IOm£R) . (P (200 ) • IDKER) 

NBW  IS  NUMBER  OF  BITS  IN  A  MACHINE  WORD  (A  NON-FORTRAN  CONCEPT) 

A  MACHINE  WORD  IS  USUALLY  EQUAL  TO  A  STANDARD-UNIT. 

A  STANDARD  UNIT  IS  THE  AMOUNT  OF  STORAGE  NEEDED  FOR  AN  INTEGER 
NCW  IS  NUMBER  OF  CHARACTERS  IN  A  MACHINE  WORD 

NAW  IS  NUMBER  OF  MACHINE  ADDRESSES  THAT  WILL  FIT  IN  A  MACHINE  WORD 
THIS  IS  PROBABLY  NEVER  USED  . 

NBC  IS  NUMBER  OF  BITS  P£R  CHARACTER.  -  • 

NCU  IS  NUMBER  OF  CHARACTERS  PEP  STANDARD-UNIT  (ATLEAST  4  FOR  EOITSPEC) 

NBU  IS  NUMBER  OF  BITS  PER  SU  (STANDARD-UNIT) 

NAU  IS  NUMBER  OF  AODRESSES  PER  SU.  PROBABLY  UNUSED. 

NBU2  IS  NBU/2 
NC2U  IS  NCU*2 

RVRSE  DENOTES  ORDER  OF  CHARACTERS  IN  AN  INTEGER  VARIABLE. 

0  x  LEFT  TO  RIGHT  (A1  REFERS  TO  HIGM-CPDER  CR  LEFTMOST  BITS) 

1  x  RIGHT  TO  LEFT  <A1  REFERS  TO  LOW-ORDER  OR  RIGHTMOST  BITS) 
NWPSU  IS  NUMBER  OF  WORDS  PER  SU  (USUALLY  1) 

LFIw  IS  NUMBER  OF  BITS  IN  A  FORTRAN  INTEGER  (SAME  AS  NBU) 

LFIWU  IS  NUMBER  OF  USABLE  BITS  IN  A  FORTRAN  INTEGER. 

MOST  OF  THE  ABOVE  VARIABLES  EXIST  FOR  HISTORICAL  REASONS 

only,  programmers  should  not  need  anything  but  ncu  out  of  these* 

I CRD  IS  CARD-READER  LUN  (PROBABLY  NOT  USED) 

IPRT  IS  PRINTER  LUN  (PROBABLY  NOT  USED) 

IPCH  IS  PUNCH  LUN  (PROBABLY  NOT  USED) 

ITAP  IS  MAGNETIC  TAPE  LUN  (PROBABLY  NOT  USED) 

THE  ABOVE  LOG I C AL -UNI T -NUMBERS  EXIST  FOR  HISTORICAL  REASONS 
FOR  THE  LUN  VARIABLES  USED  IN  EDITSPEC.  SEE  COMMON  /IOC/ 

TRU  IS  AN  INTEGER  REPRESENTATION  OF  LOGICAL  .TRUE. 

FALS  IS  AN  INTEGER  REPRESENTATION  OF  LOGICAL  .FALSE. 

ZEROS  IS  AN  INTEGER  REPRESENTATION  OF  BINARY  7ER0  (ALL  BITS  OFF) 

ONES  IS  AN  INTEGER  REPRESENTATION  OF  BINARY  ONES  (ALL  BITS  ON). 

THE  ABOVE  WERE  USED  IN  THE  OLD  SYSTEM  TO  PERFORM  SOME 
TRICKY  TYPE  CONVERSION.  THEY  CONTINUE  TO  EXIST  SOLELY 
FOR  HISTORICAL  REASONS. 

MAXGP  STANDS  FOR  MAXlMU“  NUMBER  OF  CHARACTERS  PER  GET  OR  PUT.  IT 
WAS  USED  IN  THE  EARLIER  OATA-MANDLER  FOR  I/O.  IT  IS 
CURRENTLY  SUPERFLUOUS.  AND  HAS  A  VALUE  OF  32789  (2»M5> 

THE  FOLLOWING  ARE  USEO  TO  COMMUNICATE  BETWEEN  EDITSPEC 
AND  THE  DATA-HANDLER. 

NDS  -  DATASET  NUMBER  (INDEX  INTO  DATASET  TABLE) 

FILNM  -  4  INTEGER  ARRAY  TO  STORE  FILE-NAME 

FOLIO  -  RECORD  ID  OF  SUBSEQUENT  OR  FOLLOWING  RECORO 

PREIO  -  RECORD  ID  OF  PREVIOUS  RECORO 

LRLEN  -  LOGICAL  RECORD  LENGTH 

FSTAT  -  FILE  STATUS 

MAA _ -  MAVtMllM  miMaco  ne  niBff.-i.wtt  Btrur.e 


uouuuu  uouo  uouuuuuoououuuouu  u  o  uu  uuuuuuouuuo  uuuu  ou 


NUA  -  MAXIMUM  NUMStH  O*  V 1 MtCT-ACCtSS  UAIAStTS 

I0HTR  -  OATA-HANDLER  trace  flag 
IOH£R  -  OATA-manDLER  ERROR  FLAG 
JOKER  -  DATA-HANOLER  ERROR  CODE 


OECEM0ER  1.  1977 
ACCESS  SYNTAX  COMMON. 

INTEGER  ONAMS.ACOOE.ANUMS.UIOS.UALLS.ALLSW.RCOID.RCATO.RCUIO 
COMMON  /ACSNC/JtONAMS(3,70>  .ACOOE  (20)  ,ANUMS<3.?0)  .UIOS<3.20)  • 

1UALLS (3*20) .NNAMS.NNUMS.NIOS. NALLS. ALLSW.RCDID (20) .RCAID (20) • 

2RCUIO(20> 

ONAHS (3*20)  IS  USED  TO  STORE  UPTO  20  DOCUMENT  NAMES. 

ACODE (20>  IS  ACCESS  CODE  FOR  DOCUMENT  NAME  LIST. 

ANUMS(3.20)  IS  LIST  CF  ACCOUNT  NUMBERS. 

UIOS ( 3.20 )  IS  LIST  OF  USER-IOS. 

UALLS (3*20 )  IS  LIST  CF  ALL-MASKS. 

NNAMS  IS  NUMBER  0 r  DOCUMENT  NAMES  IN  LIST  (<«20) 

NNUMS  IS  NUMBER  CF  ACCOUNT  NUMBERS. 

NIDS  IS  NUMBER  OF  USER-IDS. 

NALLS  IS  NUMBER  OF  ALL  MASKS. 

ALLSW  IS  1  IF  • ALL •  IS  SPECIFIED. 

RCDIO (20)  MOLDS  RECCRO-ID  OF  FIRST  DATA  RECORD  ASSOCIATED 

WITH  EACH  DOCUMENT  NAME  IN  DNAM(3,?0)  (IN  DIR-TABLE). 
RCAID ( 20 )  IS  OATA  RECORD  ASSOCIATED  WITH  ANUMS(3.20)  IN  ACS-TBL 
RCUIO (20)  IS  OATA  RECORD  ASSOCIATED  WITH  UIDS(3.20)  IN  USR-TBL. 


AUGUST  30.1979 

COMMON  /ACTAC/  IAC7A 

I ACTA  »0  OFF .*1  WHEN  A  «CT«  FOUNO  INSIDE  A  ^TB* 

MARCH  8.  1979 
BACKUP  COMMON  BLOCK 
INTEGER  ST '.PE 

'COMMON  /BACKC/  ISBUPI5).  JSBUC(5)*  ISBUT (SriTHULFIL. 

I  NUNITS.  STAPE. 

1IRSTR.IDOCDS 

JSBuP  IS  TABLE  OF  ENTITIES  EDITED  SINCE  LAST  BACKUP 

ISBuC  IS  eACKUP  DIRECTORY  BY  DOCUVENT/DATASET/SYSTEM-TABLE  NAME 

ISBUT  IS  BACKUP  DIRECTORY  Br  TAPE  NAME 

MULFIL  IS  TYPE  OF  BACKUP  TAPE  USED 

«0  IF  THERE  IS  ONLY  ONE  FILE  ON  THE  TAPE 
«1  IF  THERE  MAY  ^BE  MORE  Than  ONE  FILE  ON  THE  TAPE 
NUNITS  IS  TOTAL  NUMBER  OF  THINGS  THAT  CAN  BE  PACKED  UP 
■MAXIMUM  NUMBER  OF  FILES  ON  THE  TAPE  IF  “ULFILsI 
■MAXIMUM  NUMBER  OF  ENTITIES  THAT  may  BE  PACKED  UP  IF  MULFIL«0. 

STAPE  IS  UNIT  NUMBER  OF  THE  "SPECIAL  TAPE”  TO  HOLO  IS8UP. ISBUC.  AND  ISBUT. 
IRSTR  -  RESTOPE  SWITCH 


APRIL  12.  1979 

COMMON  HOLDS  NOS  ANO  FILNM  for  RESTORE  READ  ROUTINE 

INTEGER  RENOS.  REFIL 
1*  RREC10 
2.  IN1SAV 

RRECIO  RECORO  10  TO  REAO  NEXT 
INI SAV  SAVE  AREA  FOR  INP1 
COMMON  /BCKRSC/  RENDS*  REFIL (4)  . 
n#  RRECIO 
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*  V  *  • 


•  c 

c 

-  I 

c 

c 


CONVERSION-SYSTEM  COMMON.  DOCUMENT  partition 
FEBRUARY  6.  1979 

fCOHMON  7CNVD0C/  DOCNM,  DSNAm;  NEwDSN.  OPTION,  CMQOPT. 

- PROCES.  CNVERR.  OSCAT.  OSKEY,  OSRID,  - 
OSBU*.  SEQNO 


INTEGER  DOCNM (3) 


INTEGER  OSNAM (2) 


INTEGER  NEwDSN(2) 


INTEGER  OPTION 


INTEGER  CMQOPT 


LOGICAL  PROCES 


C 

<t>  % 

c 

*  c 

c 

*  l 

c 

-  c 


LOGICAL  CNVERR 


INTEGER  OSCAT (S) 


INTEGER  OSKEY 


INTEGER  OSRIO 


(PACKED)  EDIfSPEC  NAME  OF  DOC  TO 
BE  CONVERTED 


DATASET-NAME  ON  WHICH  THE  DOCUMENT 
RESIDES. 


TARGET  DATASET-NAME  FOR  THIS 
DOCUMENT.  IF  USER  CHOOSES  TO 
MODIFY  THE  DATASET  THAT  THE 
DOCUMENT  RESIDES  ON  AT  TAPE 
GENERATION  TIME 


SWITCH  THAT  CONTAINS  THE  OPTION 
VALUE  THE  USER  SELECTED  WHEN 
THE  "*OSCN«  COMMAND  WAS  ISSUED. 


OPTION  SELECTED  ON  THE  special 
COMMAND  RECORDS  THAT  FOLLOW  THE 
H.DSCN  ...  COMMAND  WITH  OPT 
SET  TO  2. 


LOGICAL  SWITCH  TO  INDICATE  WHETHER 
THE  "LOOKUP"  PHASE  HAS  SELECTEO 
ANOTHER  DOCUMENT  TO  BE  MOVED  TO 
THE  CONVERSION  MEDIUM. 

cif  false,  indicates  to  terminate 

CONVERSION  PROCESSING). 


SWITCH  TO  INDICATE  THAT  THE  CONV 
PROCESS  HAS  FAILED 


TABLE  IDENTIFIER  TO  ACCESS  THE 
SUB-TABLE  T-AT  INDICATES  THE 
DOCUMENT  CATALOG  FOR  A  PARTICULAR 
DATASET. 


SUBSCRIPT  IN  OSBUFO  WHERE  THE 
FIRST  WORD  OR  THE  SELECTED  KEY 
(DOCUMENT  NAME)  IS  TO  BE  FOUNO 


SUBSCRIPT  IF  OSBUFC)  WHERE  THE  RECORO-IO 
_  nr  twf  prrnBn  Aecnrurm  wttm  _ 


UJUU  UUUUU  UUUU  UUUUUU  O  UUU  UUU  UUU  UUOUO  UUU  uuuu  u  uuuuu 


NOA  '  •  MAXIMUM  NUMBtH  UlMfcCT-ACCtbS  U*»*StlS  ' 

ur  l nt  NtCUxu  AbbUL I A I fcU  WilH 

THE  KEY  P  DSKEy  IF  FOUND 

INTEGER  DSBUF (243) 

BUFFER  AREA  FOR  HEADER  RECORDS  IF 
THE  ISDDT  TAeLE  ACCESSES  WHILE 
DOCUMENT  TRANSFERS  ARE  BEING 
PERFORMED 

INTEGER  SEONO 

SEOUENCE  NUMPER  OF  THE  NEXT  CONV 
'  RECORD  TO  BE  GENERATED 


CONVERSION  SYSTEM  GENERAL  COMMON 
AUGUST  3.  1979 

fCOMMON  /CONVRC/  ITONR.  CVLUN*  ISOOT.  CVOLIM,  CVBUF,  €9CNT 

INTEGER  ITONR (S) 

TABLE  IDENTIFIER  FOR  RECORD-ID  TRANSATION 
TABLE. 

INTEGER  CVLUN 

LOGICAL  UNIT  NUMBER  FOR  CONVERTION  DATA 
OUTPUT. 

INTEGER  ISOOT IS) 

TABLE  IDENTIFIER  FOR  THE  DATASET-NAME 
TABLE. 

INTEGER  CVOLIM 

MACHINE  (AIT  REPRESENTATION  OF  THE 
CHARACTER  TO  BE  USED  AS  THE  "SPECIAL 
CHARACTER  DELIMITER"  FOR  ALL  EDITSPEC 
COMMANDS  ISSUED  BY  THE  CONVERTION  SYSTEM. 

INTEGER  CVBUF (400) 

GENERAL  BUFFER  AREA  FOR  USE  BY  THE  CONVERTION 
SYSTEM. 

INTEGER  CVCNT 

COUNT  OF  ALL  CONVERTION  RECOROS 
GENERATED  BY  THE  CONV  SYSTEM 


.'COMMON  /C0NVR2/ 

1ZLOGONI  6) .ZDOCU  I  541.ZF00T  I  10?).IOUMMrt  245) • 
1 JDUMMY I  ?45) . ISDATA  C  40) . IUOATA I  30).ISPECP(  625). 
IIKEY  I  3) 

INTEGER  ZOOCU.ZFOOT 
AUGUST  31.  1977 
INTEGER  INPCS.OUTCS 
COMMON  /CSETC/  INPCS.OUTCS 

INPCS  IS  INPUT  CHARACTER  SET. 

OUTCS  IS  OUTPUT  CHARACTER  SET. 


1 
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i 
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c 

c 

c 

c 

c 

c 

c 


OCTOBER  27.  1978 
CONVENTION-SYSTEM  LOGIN  COMMON 
COMMON  /CvLGNC/  LOGIOE 
INTEGER  LOGIOE (3) 

CONTAINS  THE  USER-10  (IN  EDITSPEC  FORM) 

THAT  WAS  USEO  IN  THE  LAST  CALL  TO 
"CVLGIN".  SHOULO  BE  OAT AED  IN  BLOCK  OATA 
TO  ✓  3*0  / 


i 

.  _ 

i 


C 

C 

C 

c 

c 

c 

C 

C 

c 

C 

C 

c 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


COMMON  BLOCK)  CVUSRC  ■  06-SEP-78 


COMMON  /CVUSRC/  SEONM.  RECSI2.  DATALN 


COMMON  VARIABLE  OESCRIPTIONSt 

TYPE  NAME  DESCRIPTION 


INTEGER  SEONM 

CONTAINS  THE  SEQUENCE  NUMBER  OP 
THE  NEXT  CONVERSION  PECORO  TO 
BE  EMITTED. 

INTEGER  RECSIZ 

CONTAINS  THE  RECORD  SIZE  I IN 
CHARACTERS!  THAT  WAS  REAO 
OURING  THE  LAST  DKGET •  USED 
PRIMARILY  BY  CVUSR2. 

INTEGER  DATALN (68) 

BUFFER  TO  HOLD  THE  ALPHAMERIC 
PORTIONS  OF  THE  CONVERSION 
RECOROS. 


JULY  22*  1977 
INTEGER  DEBUG 
"COMMON  /OCBUGC/OE8UO 
DEBUG  IS  TRACE  OuuPUT  SWITCH. 


DOCUMENT  KEYWORD  INDEX  TABLE  COMMON 
MAY  25.  1978 
INTEGER  DKrwOT 

COMMON  /OKYWOC/  OKYWDT (5.6) .KWUSE 
OKtwDT:  OOCuMENT  KEYWORD  TABLE 
OKYWOT ( 1 .N) ■  THE  PARTICULAR  part  of  THE  FILE-NAME 
OKYWOT (2.N) «  THE  ID  OF  THE  FIRST  RECORD 
OKVWOT(3»N)>  THE  SIZE  OF  ThE  PRIMARY  KEY 

*)PF  nr.  twv  «rn iwDaov,  . ,rL , 
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04  UUUUUU  UUU  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUl! 


NO*  «  maximum  NUM*StM  0»  U  T“»CCtb5  u«l»«lb* 

-  .....  _  .  ...  .....  ,  •nt.  —  '  •••*•• 

DKYWOT (5.N) *  THE  STORAGE  MODE  (PACK/POINT) 

WHERE  N  IS  THE  KEYWORD  INDEX  (I  TO  6) 

KWUS£«NUM8ER  OF  KEYWORD  INDEX  TABLES  USED  BY  THE  OOCUMENT 


JULY  22.  1977 
OOCUMENT  EOIT  COMMON 
INTEGER  EDITF.EDS.E9DS.EACC.EREL 
LOGICAL  EREAO.EOBAK 

COMMON  /EDITC/  EOITFU)  ,EDS.EBOS,EREAO.IEDIT,MGO.ICYC.IDAC.IIIC*  ' 

1  ITOTY  (-5. 15)  •  IERR,  ! auO.£BBAK,EACC,EREL 

DIMENSION  ITA()G(5>  » I TAUO (5) .ITAUT (5) . ITDRT (5) ♦ ITERT (5) . 

1  ITERC<5>.ITE9L(5>.ITE»S<5UITFLG<S>.ITIX  (S»  • 

2  •  ITLC  <5>.ITPUL(5).ITAeC(5>.ITEXT(5>.ITBAK(5> 

EQUIVALENCE  (ITAUG(I)  .ITQTYd.  1 ) )  .  I  ITAfO  <  1J  .  ITOTY  ( l ,  2)) 
EQUIVALENCE  (ITAUTd)  .ITOTYll.  3)  >  *  (  ITDRT  U  )  .  ITCTY  (1  •  4)) 
EQUIVALENCE  (ITERT(1>  .ITQTVd.  5)1 • ( I TERC < 1 I • ITOTY I 1 •  6)) 
EQUIVALENCE  UTERLU)  .ITQTYd.  7)  )  *  (ITERS  d )  ♦  ITCTY  ( 1  ♦  8)) 
EQUIVALENCE  (ITFLG(l). ITQTYd.  9 j ) ,  ( I T I X  Cl) tlTCTY(IflO)) 
EQUIVALENCE  (ITLC  d)  .ITOTYd.ll)  )  .  (ITPUL(1>  .  ITCTY  ( I  ♦  12)  I 

“-EQUIVALENCE  (ITABCd)  .  ITOTY  d.  13))  .  (ITEX1  l)  •  ITOTY  ( 1  •  14)  I 
EQUIVALENCE  ClTBAKd)  .lTOTYd.15)) 

EOITF  IS  AN  ARRAY  CONTAINING  THE  OOCUMENT-NAhE  OF  THE  DOCUMENT 
BEING  EDITED,  IN  THE  FIRST  3  WORDS,  AND  ALL  BLANKS  IN 
THE  4TH  WORO 

EOS  IS  THE  DATASET  NUMBER  OF  THE  DATASET  CONTAINING  THE  DOCUMENT 
BEING  EOITEO 

EBDS  IS  THE  OATASET  NUMBER  OF  THE  DOCUMENT  COMMAND  BACKUP  DATASET 
EREAD  IS  REa-ONLY-FLAG. 

•FALSE.  NEANS  R EAO/WRITE  ACCESS  TO  DOCUMENT 
•TRUE.  MEANS  READ-ONLY  ACCESS. 

IEDIT  IS  IN-E0IT-M0DE  SWITCH. 

0  MEANS  NOT-IN-EOIT-mODE 
1  MEANS  IN-EDIT-MODE 
MGO  IS  XTRNL-PEFERENCE-OVERRIDE  SWITCH 
0  MEANS  00  NOT  OVERRIDE 
-1  MEANS  OVERRIDE 
ICYC  IS  CURRENT  CYCLE  NUMBER 
1DAC  IS  USER  DOCUMENT  ACCESS  COOE 
INC  IS  LINE  INCREMENT 

ITOTY  IS  15  DIFFERENT  ARRAYS.  EACH  5  WORDS  LONG  -  ONE  FOR  EACH  OF 
THE  14  DIFFERENT  OOCUMENT  TABLES,  AND  ONE  FOR  THE  BACKUP 
TABLE.  FOR  EACH  ARRAY,  THE  5  WORDS  HAVE  THE  FOLLOWING. 
INFORMAT ION- 

1.  THE  PARTICULAR  PART  OF  THE  FILE-NAME  (FILNM(4)> 

2.  THE  10  OF  THE  FIRST  RECORD 

3.  SIZE  OF  PRIMARY  KEY 

4.  SIZE  OF  SECONDARY  KEY 

5.  STORAGE  MODE  (PACK  OR/ANO  POINT) 

THE  IS  DIFFERENT  ARRAYS  ARE  AS  FOLLOWS.  FOR  EACH  TABLE,  THE  FORTRAN 
VARIABLE  NAME,  th£  PARTICULAR  PART  OF  THE  FILE-NAME  OF 
THE  TABLE,  AND  A  DESCRIPTION  OF  THE  TABLE. 


IT—  VALUE  OF  IT— CJ)  DESCRIPTION 

IFILNMU)) 


IT AUG  «AUG» 

ITAUO  *AUO* 

ITAUT  •AUT* 

.  ..  jtmt _ _ _ tnart 


AUDIT  TABLE  I GENERAL) 
AUDIT  TABLE  (OTHER) 

AUOIT  TABLE  (TEXT) 

nnr,  imfmt  oFFFQFurFn  r  ami  f. 
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ooo  oouoouo  uoouoo  uu  oo  u  uuuuouuuuuuub' 


{ 

1TERT 

•CRT* 

EXTERNAL  REFERENCE  (TABLE) 

-  c 

ITERC 

*£RC* 

EXTERNAL  REFERENCE  (COPY) 

c 

1TIX 

•IX* 

INDEX  V  • 

c 

ITLC 

•tc* 

LOGIC  CHECK 

c 

ITPUL 

•PUL* 

PULL  TABLE  . 

c 

ITABC 

•ABC* 

TABLE  OF  CONTENTS 

c 

ITEXT 

•EXT* 

TEXT  TABLE 

c 

1TBAK 

•BAK* 

BACKUP  TABLE 

EACC=1  FOR  READ-WRITE  I  2  FOR  READ-PRINT  I  3  FOR  READ-ONLY. 

EREL  IS  i  IF  LOCKED  EOIT  DOCUMENT  CAN  BE  RELEASED  BETWEEN  COMMANOS. 


AUGUST  31.  1977 
LOGICAL  EDEL.EOLIN 

INTEGER  ExDOC.ExDS.ETExT.EHDR.EFL AG. ELOC.ELNST .ELNNO.ELNND. EXECS V 
COMP ON  /ExECC/  ExD0C(3» .ExOS.ETEXT(SI.EHDR(243l*EFLAG.ELOC* 
1ELNST.ELNN0.ELNN0.EXECSW, EDEL.EOLIN 

EXDCC  IS  OOCUVENT  FROM  WHICH  COMMANDS  ARE  EXECUTEO  FOR  .EXEC.  COMMAND. 
EXDS  IS  DATASET  NUMBER  0*  EXDOC. 

ETExT  IS  5  WORD  TABLE  PARAMETER  ARRAY.  SIMILAR  TO  ITEXTCS) 

EHDR<243),  EFLAG.  ELOC  ARE  FOR  TABLE-HANDLING  ROUTINES. 

ELNST  IS  STARTING  LINE  NUMBER. 

ELNKO  IS  CURRENT  LINE  NUMBER.  FOR  NEXT  commano 
elnnd  is  enoing  LINE  NUMBER. 

EXECSW  IS  SWITCH:  1  FOR  NORMAL  READ 

2  FOR  .EX.  COMMAND 

3  FOR  .EXEC.  COMMAND. 


OCTOBER  30  1978 

COMMON  /FLOCKC/  IN7R 
INTR  0*  NO  LOCK  PERFORMED  IN  F0I7 
INTR*I  LOCK  PERFORMED  IN  FOIT 

NOV  7.  1977 

INTEGER  FDITF.FDS.F0OS 

LOGICAL  FOBAK 

•COMMON  /FDITC/  FDITFU)  .FDS«JT0TY(5.15»  .FBDS. FOBAK. IFOIT 
DIMENSION  JTAUG15) .JTAU0<5) . JTAUT 1 5 > » JTCRT (5) . JTERT (5) • 

1  JTERC(5)  .JTERU5I  .JT£RS(5)  .JTFLG(S)  .JTIX  (5>  ♦ 

2  JTLC  (5) » JTPUL  <5> » JTABC  <  5) .JTExT (5) . JTBAK (5) 

EQUIVALENCE  (JTAUGU)  ,  JT0TY<1  ,  lU.tJTAUOm.JTCTYll.  2)  > 
EQUIVALENCE  (JTAUT(1>,JT0TY(1,  3>> . ( JTDRT <1 > . JTCTY d .  4)1 
EQUIVALENCE  (JTERT(l).JTOTY(l.  5 ) > . < JTERC ( 1 ) . JTCTY ( I »  6)) 
EQUIVALENCE  (JTERL(l) .JTOTYd.  7i >,( JTERS < 1 ) .JTCTY (1 .  8)) 
EQUIVALENCE  (JTFLG(l).JTOTYn,  9>),(JTIX  ( I )  .  JTCTY  ( 1 . 10) ) 
EQUIVALENCE  UTLC  (1)»JTQTY(1,11)).( JTPUL Cl) .JTCTY (I. 12)) 
EQUIVALENCE  IJTABC(l)  .JTOTYd  ,13) )  .  (JTEXTd)  .JTCTY ( 1.14)) 
EQUIVALENCE  (JTSAKd)  .JTOTYd  .15)) 

FOITF  IS  AN  ARPay  CONTAINING  Th£  DOCUMENT-NAME  OF  THE  DOCUMENT 
BEING  EDITED.  IN  THE  FIRST  3  WORDS.  AND  ALL  BLANKS  IN 
THE  4TH  WORO 

FOS  IS  THE  DATASET  NUMBER  OF  THE  OATASET  CONTAINING  THE  DOCUMENT 
BEING  EDITED 

F8DS  IS  THE  DATASET  NUMBER  OF  THE  DOCUMENT  COMMAND  BACKUP  DATASET 
JTOTY  IS  15  DIFFERENT  ARRAYS.  EACH  5  WORDS  LONG  -  ONE  FOR  EACH  OF 
THE  !«.  OIFFERENT  OOCUMENT  TABLES.  AND  ONE  FOR  THE  BACKUP 
TABLE.  FOR  EACH  ARRAY.  THE  S  WORDS  HAVE  THE  FOLLOWING 
INFORMAT ION- 

1.  THE  PARTICULAR  PART  OF  THE  FILE-NAME  CFILNM(4)> 

_ _  THE  ip  OF  THE  FIRST  WB^WTim(  #!Brfi-w« 


u>UUUUUUU  UO  UOUUUUUUU  U  UO  UUUUUUO  uuuouuuu  uuu  uuuuuuuuuuuuuuuu 


NO*  -  «A*J**U*  NO"»tH  «*  WI«UI-»ULM  «  3  _ _ _ _  _  • 

»MMI  ,««••>•  ...»  t  w  ».  .....  W.  ,  »»».»•  i*«.u 

2.  THE  10  or  THE  FIRST  RECORD 

3.  SIZE  or  primary  key 

4.  SIZE  or  SECONOARv  KEY 

5.  STORAGE  M00E  (PACK  OR/ANO  POINT) 

IfOIT  IS  1  I r  wE  ARE  IN  FDIT-MODEl  0  OTHERWISE. 


DOCUMENT  KEYWORD  INOEX  TABLE  COMMON 
MAY  25.  1978 
INTEGER  OKYWOT 

COMMON  /FKYwDC/  0KYWDT(5»6)  .KWUSE 
OKYwOTs  DOCUMENT  KEYWORD  TABLE 
DKYWOT(l.N)*  THE  PARTICULAR  PART  OP  THE  PILE-NAME 
0KYWDT(2,N)*  THE  ID  OF  THE  F I HST  RECORO 

dkywdto,n>*  the  size  or  the  primary  key 
dkywct(*.n>=  the  size  or  the  secondary  key 
DKY*CT<5.N)=  the  storage  MODE  (PACK/POINT) 

WHERE  N  is  the  keyword  INDEX  11  TO  6) 

KWUSE*NUM8ER  or  KEYWORD  index  tables  useo  by  the  oocuhent 


DECEMBER  IS,  1977 

COMMON  /PLSLC/  IFLSW, IFLNO. IFLCH 

IFLSW  *  0  NORMAL  CALL  Of  FLGCH 

IPLSW  »  1  PLGCH  CALLEO  8Y  TEXTGC  ANO  HENCE  REOUIRES  THE  VALUES 

OP  IFLNO  &  IFLCH  TO  BE  SPECIFIED  VIA  COMMON  AND  NOT  VIA  STRING 
IFLNO  THE  FLAG  10 

IFLCH  THE  FLAG  CHOICE  NO  OF  THE  IFLNO  FLAG  ID 


JULY  22.1977 


COMMON  /FORMAT/ 

1  PFMTTI  15).  PFMTBl  15).PFMS<  29I.PFNNSC  12) 

1.PFMHFI12)  .PFMTCI15) 


INTEGER  PFMTT.PFMTB.PFMS.PFMNS.PFMHF  .PFMTC 


PFMTTC15)-  PRINT  FORMAT 
PFMTB ( 15) -  PRINT  Format 
PFMS  (29)-  PRINT  FORMAT 
PFMNSU2)-  PRINT  FORMAT 
PFMMF (1?)-  PRINT  FOR“AT 
PFMTC ( 15)  -  PRINT  FORMAT 


FOR  THE  MARGIN  AT  THE  TOP  OF  PAGE 
FOR  THE  MARGIN  AT  THE  BOTTOM  OF  PAGE 
FOR  SKIPPING  LINES  -  ALL  COLUMNS 
FOB  NONSKIP  OF  LINES-  TEXT  ONLY 
FOR  HEADER. FOOTER. PAGENijMBER 
FOR  PAGE  EJECT  ON  TERMINALS 
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C  Mir  4,  1978 

C  GENERATE-uPDATE  COMMON 

INTEGER  FCOCN.SCOCN  .SONDSN 

COMMON  /GEOAC/  fOOCNO)  ,SD0CN(3>  .IOP  ,50NDSN(2) 

C  FOOCN  IS  FATHER  DOCUMENT  NAME. 

C  SOOCN  IS  SON  OOOJMENT  NAM£. 

C  IOP  «  SWITCH  TO  INDICATE  GENERATION  OR  UPDATING 

C  «  1  :  GENERATION 

C  *  2  I  UPDATING 

C 

c 

integer  gen 

COMMON  /GEUPC/  ^  IPULL « IPULLC (60,500) # IPS 

! 1*GEN(125) ,LNXT.NFT0T(2) ,NUM(100,2»  .LINIO.LINENO 
C  ;  I PULE.  NUMBER  OF  PULL  CO“MANOS  IN  IPuLLC  ARRAY 

C  IPULLC  ALL  VALID  PULL  CONDITIONS 

C  GEN < 125)  :  STRING  GENERATED  IN  EDITSPEC  FORM 
C  LNXT  S  LAST  CHAR  POSITION  IN  GEN 

C  NFTOT<2)  J  COUNTERS  FOR  TOTAL  NUMBERS  OF  COLUMNS  AND  ROWS. 

C  NUM (100*2) 5  STORAGE  FOR  HOLDING  COLUMN  NUMBERS  AND  ROW  NUMBERS 

C  LlNID  S  ID  USED  IN  C  CR  R  TYPE  PULL.  ALSO  USED  AS  A  SWITCH  TO 

C  INDICATE  A  CONTINUATION  FROM  A  PREVIOUS  C  OR  R  PULL 

C  LlNENO  :  LINE  NUMBER  ENTERED  IN  SON'S  DOCUMENT 

C  OCTOBER  31.1978 

C  THIS  COMMON  IS  USED  TO  TRANSMIT  THE  REQUIRED  DATASET  ACCESS  FOR  DYNAMIC  ALLOC. 
COMMON  /INACTC/  IACCE 

C 

C  VALUES  FOR  IACCE  ARE I 

C  0  OR  I  «  SHARED  ACCESS  REOUIREO 

C  2  *  EXCLUSIVE  ACCESS  REOUIREO 

C  3  *  CALLED  TO  CREATE  A  NEW  DATA  SET 


C  JULY  22.  1977 

C  I/O  UNIT  NUMBERS 

•COMMON  /IOC/  INP1.INP2,NLST.NPR0.NEC0,NPRI,MES6 . 

C  INP J  IS  PRIMARY  INPUT  LOGICAL  UNIT  NUMBER  (OR  LUN  FOR  SHORT) 

C  INP2  IS  SECONDARY  INPUT  LUN 

C  NLST  IS  LISTING  LUN  (FOR  COMMANDS  .LIST  OR  ,LT> 

C  NPRO  IS  ON-LINE  PROMPTING  LUN 

C  NECO  IS  LUN  FOR  ECHOING  COMMANOS 

C  NPRI  IS  PRINTING  LUN  (FOR  .PR  COMMAND) 

C  MESG  IS  LUN  FOR  ALL  MESSAGES  AND  ERRORS 

C 


NOVEMBER  8*  1978 

RESTORE  -  COMMON,  KEYWORD  (SYSTEM)  PARTITION 


COMMON  /KJNDC/  CDBUF •  INDEX,  TYPE,  PRVTYP,  OOCCNT, 

Exdoc,  exseo.  *eqnm,  kferr,  docbuf, 

'  WRKBUF.  SUBTBL.  KNOTBL.  LVORIO.  KACRIO, 
KYSIZE,  KYWNO 


INTEGER  CDBUF (65) 

BUFFER  TO  HOLD  VARIABLE  PORTION 

.  -  - ..  _OC..cn*.wPPTTn««  arrnenc  _ 

_  NO  A  wav  ?miim  winur,  •  • - 


uu  uuuu  ouu  uou 


c 

c 

c 

c 

c 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


t  •«#  •  **•»••#  ' 


(W 


J  J  t  aJ 

►ftc  .  -*’•  *•••*  « 


•  IM 


2.  THE  10  OF  t«£  FIRST  RECORD 

ot  CONVERT I ON  RECORDS 


INTEGER  INDEX 

KEYWORD  INDEX  «  OF  TABLE  BEING 

CURRENTLY  RESTORED 

INTEGER  TYPE 

TYPE  CODE  OF  CONVERT ION  RECORD 
JUST  READ 

INTEGER  PRVTYP 

TYPE  CODE  OF  CONVERT] ON  RECORD 
PREVIOUS  TO  CURRENT  ONE 

INTEGER  DOCCNT 

COUNT  OF  OOCURENTS  CURRENTLY 
RECORDED  ON  ACCESS  LIST  WE 
ARE  NOW  RESTORING 

INTEGER  EXOOC 

NUMBER  OF  DOCUMENT  NAMES  WE 
EXPECT  TO  RESTORE  TO  THIS 
ACCESS  LIST 

INTEGER  EXSEO 

SEQUENCE  NUMBER  WE  EXPECT  THE 
NEXT  RESTORE  RECORD  TO  HAVE. 

INTEGER  SEONM 

SEOUENCE  NUMBER  OF  RESTORE 
RECORD  JUST  READ. 

LOGICAL  KFERR 

"FATAL  ERROR"  SWITCH  DURING 
KEYWORD  RESTORE  PHASE 

INTEGER  DOCBUFU) 

BUFFER  TO  HOLD  DOCUMENT  NAMES  AND 
FLAGS  BEFORE  APPENDING  THEM  TO 
THE  OOCUMENT-ACCESS  LISTS 

INTEGER  WRK8UFI20I 

WORK  BUFFER 

INTEGER  SUBTBL<5) 

TABLE-IDENTIFIER  FOR  INDIVIDUAL 
KEYWORD  SUB-TABLES 


INTEGER  KN0TBU5) 

TABLE-IDENTIFIER  FOR  KEYWORD 
NUMBER  TABLE. 

INTEGER  LVORIO 

RECORD- ID  OF  LEVEL  0  RECORD  (WHICH 
CONTAINS  CRE-IO.KW-TBL  POINTER. 
ETC.) 

INTEGER  KACRIO 

RECORD-IO  OF  LAST  KEYWORD  ACCESS 
RECORD  GENERATED 


INTEGER  KYSIZE 

SIZE  OF  CURRENT  KEYWORO(S)  IN 
CHARACTERS 

INTEGER  KYWNO 


59 


oonono  nnonnnnnnnnnn  noon  «>oon  non  non  noon  on  o  no  o  no  non  non  onoi 


■ 


RESTORED 


MARCH  6.1978 

Integer  rsrcs 

COMMON  /tOCKC/  RSRCS(7.20).NRSRCS 


RSRCS Cl. ALU  DATA  SET  NUMBER 

RSRCS (2* ALL)  SYSTMTA8LE  WORD  OR  FIRST  WORD  OF 

RSRCSO.ALL)  STSTMTABLE  WOOD  or  2  ND  WORD  OF 

RSRCS (4. ALL  I  SYSTMTABLE  WORD  OR  3  RD  WORD  OF 

RSRCS<5.ALL>  SYSTMTABLE  WORD  OR  4  TH  WORD  OF 

RSRCS (Nt ALL)  OATA  BASE  NUMBER  (STARTING  FROM  0). 
RSRCS(T.ALL)  SMAIPED  OR  EXCLUSIVE  USE  REOUEST 
NRSRCS  NUMBER  OF  RESOURCES  REQUESTED 


OOCUMENT  NAME 
DOCUMENT  NAME 
DOCUMENT  NAME 
DOCUMENT  NAME 


JULY  22.  1977 
LOG-ON  ANO  LOC— OFf  COMMON 
INTEGER  ACTNO.TLOG.CLTIM 
COMMON  /LOGO/  ACTNOO)  .TLOG(S)  .CLTIM 

actno  is  account  number  currently  logged-on  under. 

TLOG  CONTAINS  THE  TIME  ANO  DATE  OF  LOG-ON. 


LIST/PRINT  COMMON  USEO  TO  PROOUCE  A  HARO  COPY  TEXT  FOR  EOlTOR/ENGR 
COMMON  /LTPTC/  LTPT 
LTPT  SWITCH  0*  OFF.l*  ON 


July  22,  1977 

AUXILIARY  MACHINE  SPECIFIC  constants 

COMMON  /KC/  kaxCh.Iw01.NCUM.]»02.NCUM2«KCU2.JW03«NCU?43 

THIS  COMMON  BLOCC  CONSISTS  OF  VALUES  THAT  COULD  HAVE  BEEN 

COMPUTED  FROM  NCU  (NUMBER  OF  CHARACTERS  PER  STANDARD-UNIT). 

AND  THAT  a«E  p»E-COMPuTED  ANO  STOREO  IN  COMMON  TO  SAVE  TIME 

MAXCM  »  NCU*80M 

1WD1  *  I 

NCUM  s  NCU-1 

IW02  *  NCU*1 

NCUM2  s  NCU*2-I 

NCU2  *  NCU#2 

IWD3  ■  NCU*2M 

NCU243  *  NCU*2*3 


JULY  22.1977 


.  ...  *xju.  mcpona— P4£CJ-P*J 

'iMVwnrrA.Mia  tm.  n*  »rn«.n»o»  way 
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2*  THk  ID  OF  THE  FIRST  RECORD 

,«****•  . — _ „  «ii^sa^vMW?N,gfC0Hps 

I.  ' '  "  '  •  ’"NPNFCr IPNFCt96 •  VI —  , 

1.  INPNFC(72»6) »1NPaGE(72> 
l.IPKFCC 


INTEGER  PAGE*  PAGENO 


DIMENSION  PAGENO (60) »ISFL(6) »ISTN(6) • I ST A (61 *ISLI 16) . ISLPC6) 


EQUIVALENCE  (PAGE (  D.ISFI  )*(PAGE(  8) .LOP  ).(PAGE(  9>*IS0P) 

1  .(PAGE(IO) .IPJ  ) * (PAGE  <35>  «ITLP  I 

2  • (PAGE (  2)*ISFL(1))« (PAGE (ll).ISTMl)) 

3  «  (PAGE  (17)«ISTA(l) )  .  (PAGE  (23)  .ISLK1)) 

4  * (PAGE (29). ISLP(1)).(PAGEC37), PAGENO ( I) ) 

5*  (PAGE  06)  *NSO) 


NUMBRC  COMMON  DESCRIPTION 

IPAGNO(IS)  -THE  PAGE  NUMBER  IN  MACHINE  CHARACTERS  * 
PACKED  FORMAT. 

NCPGNO  -THE  NUMB£R  OF  WORDS  IN  (IPAGNO(IS)) 

PAGE (96  )  -INFORMATION  ABOUT  THE  PAGE  NUMBER. 

equivalenced  as  follows: 

ISFI=  SUBFIELD  TO  INCREMENT 

ISFL*  SUBFIELD  LENGTH  1-6  SUBFIELDS 

THE  FOLLOWING  READ  FROM  PAGE  NUMBER  FORMAT  RECORO 
LOP  *  LOCATION  ON  PAGE 

I  SOP*  START  ON  PAGE  NUMBER 

IPJ  «  PAGE  JUSTIFICATION 

ISTN*  SUBFIELO  TYPE  NUMERIC 

ISTA*  SUBFIELO  TYPE  ALPHABETIC 

ISLI*  SUBFIELO  LAST  CHARACTEP  OF  INCREMENT 

ISLP*  SUBFIELD  LAST  CHARACTER  TO  PRINT 

ITLP*  TOTAL  LENGTH  OF  PAGE  NUMBER 

NSO  NUMBER  OF  SUBFIELDS  DEFINED 

PAGENO*  ACTUAL  PAGE  NUMBER  IN  MACHINE  CHARACTER 
UNPACKED  FORM (RIGHT  JUSTFIED) 

NPNFC  *  NO  OF  PARAGRAPH  NUMBER  FORMATS  IN  COMMON 

IPNFC (  96.6)  -  Six  DIFFERENT  PARAGRAPH  NUMBERS 

-  INFORMATION  IN  SAME  order  as  oefineo 

-  FOR  (PAGE  ) 

I NPNFC  *  INITIALIZATION  FOR  PARAGRAPH  NOS 
INPAGE  *  INITIALIZATION  FOR  PAGE  NOS 
IPNFC  PAGE  NUMBER  FORMAT  IN  COMMON 


JULY  22.1977 


Ctm*ON  ’~./PAGE0f A/l AG (  64) .LNNUM (  64)  .PGBUf  (40.64) " 

1»  AUOOOCO.64)  «AU0TCN(64)  .TEXTSG(  64) 

3t  IM£AOO(40.I2  ) .IHEADE (40.12  > .hOLNO.MOLNE 

4.  ,  IF00T0(40.12  ) . IFOOTE (40*  12  ) .FTLNO.FTLNJE 

5.  NPFC.IPFTU.12) 

6.  ’  M.800T.KLN[  . 

wWtlMfA0S(4fl).,HEA0.1HEAE:lHCV  IFOOTSUOJ.IFOOO.IFOOE.IFC  * 

~  *-^TT"**  "  -r-r-  '  *  *  — 
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«  •  ••••  ••  %  •  w  ••*!«  »«<  « 

l .  ipgcnt  .tcrjvnlcfp  '**» 


INTEGER  FLAG.PGBuF . AUDDOC . AuDTCN. TEXTSG 

hdlno.holne.ftlno.ftlne 


PAGEBF  COMMON  DESCRIPTION 

FLAG(64)  -  THE  FIRST  FLAG  FOUND  ON  THIS  ROW  * NEGATIVE  IF 

-  more  flags  are  on  this  row. 

LNNUM (64) -  THE  LINE  NUMBER  IN  THIS  DOCUMENT  OR  THE  NEGATIVE 

-  OF  THE  LINE  NUMBER  COPIED  FROM  ANOTHER  OOCUMENT. 
PGBUF (40*64)-  THE  TEXT  COLUMN  FOR  ONE  PAGE 

AUDDOC 0*64) -  NAME  OF  THE  DOCUMENT  THAT  THIS  LINE  HAS 

-  BEEN  CCPIEC  FROM. 

AUDTCN(64)  -  CYCLE  NUM0ERSFOR  DOCUMENT  COPIED  AND  FOR 

-  TEXT  ENTRANCE  INTO  CURRENT  DOCUMENT 
TExTSG(64)  -  THE  TEXT  SEGMENT  FOR  THIS  LINE 

IHEADO  =  ODD  PAGE  HEAOER  STORAGE 
IHEADE  *  EVEN  PAGE  HEADER  STORAGE 
HDLNO  =  NO  LINES  IN  HEADER  -ODD 
MDLNE  =  NO  LINES  IN  HEADER  -EVEN 
IFOOTO  a  ODD  PAGE  FOOTER  STORAGE 
IFOOTE  a  EVEN  PAGE  FOOTER  STORAGE 

FTLNO-  NO.  LINES  IN  FOOTER  -ODD 
FTLNE-  NO.  LINES  In  FOOTER  -EVEN 

NPFC  -  NO.  OF  PARAGRAPH  FORMATS  LOADED  INTO  COMMON 
IPFT (4.]?)  aPARAGRAPH  FORMAT  TABLE 
1PFTU.  ALL>  *  LEFT  INDENTION  OF  FIRST  LINE 
IPFT (2,  ALL)  *  LEFT  INDENTION  ALL  OTHER  LINES 
IPFT (3.  ALL)  *  RIGHT  INDENTION  CF  ALL  LINES 
IPFT(4,  ALL)  =  PARAGRAPH  10 

MLBODY  a  MAXIHUM  NO.  OF  PRINTABLE  LINES  IN  PGBUF  FOR  BODY  OF  TEXT 
KLN  r  LINE  NUMBER  IN  PGBUF  BEING  WRITTEN.  NEG.  NOT  FULL  YET. 

IHEADSUO)  =  HEADER  STORAGE 

IHEAE  a  LINE  LOCATION  OF  HEADER  STORAGE  -EVEN 

IHEAO  a  line  LOCATION  OF  HEADER  STORAGE  -ODD 

IHC  a  HEAOER  STORAGE  CHANGED  YES  0*  NO 

IFOOTS  <40 )  a  FOOTER  STORAGE 

IFOOE  a  L INELOC AT  ION  OF  FOOTER  STORAGE  -  EVEN 

IFOOO  a  LINE  LOCATION  OF  FOOTER  STORAGE  -  OOD 

IFC  a  FOOTER  STORAGE  CHANGED  2»  YES  0*  NO 

IOJPN  a  OUTSIOE  JUSTIFICATION  OF  PAGE  INFORMATION 
♦  INDICATES  AN  EVEN  PAGE 
-  INDICATES  AN  ODD  PAGE 
LFL  «  LAST  FOOTNOTE  LINE 

LMAX  a  TOTAL  NUMBER  OF  LINES  ALLOWED  ON  THIS  PAGE(MAX-FN) 

IPFSN  a  PRINT  FORMAT  STATEMENT  NUMBER  IDENTIFIER 

IPGCNT  NUMBER  OF  PAGES  PRINTED  IN  THIS  PRINT  COMMAND 
ILRJ  la  JEFT/RIGHT  JUSTIFICATION  OF  EACH  LINE  BEFORE  PRNT 

NLCFP  NO.  LINES  TO  FOLD/TERMINAL  TYPEWRITER  ONLY 


1 


AUGUST  29.  1977 

read  ANO  PARSE  COMMANO  ROUTINES  COMMON  area. 

INTEGER  PMPTR.STRNG.EDLIN.EDSI 2 
LOGICAL  EOFIL.NXTRD.CMOOK 

;  COMMON  /PARSC/MCLINI400)  .STRNG(400)  .PMPTROOO.3)  .NXTLN(BO)  • 

fl.  \  NCHAR,'ISUB.rOFTL.NXTRO.CMOOK,EOL1Nt4001  .MCSIZ.EOSIZ  r 

MCI  TN  Tc  i  iSF_n  XO-RTORf .  i  ImF.  bfah  .  tw  m atm t ur.r now a t  mi  rno  .wotrr,. 


iMTwnr  ii> 


maximum  Mnwa ru  Hr  niorrT.»rfr««  hata cr ie.. 

.Mia  TMA  R17A  HA  TMA  C.rrNnAUy  wav  \ 


on  on  nnnno  on  o  nnnnnnnnnnnnnnnnnnnn* 


I  dw  •  -  •  .  >w  ^  ^  w«  «•••>  w  •  *»w  •  ’  '  * 

2.  Tint  iu  or  r*«c  fjmst  Rt'CO*»r> 

XSZ7 vc  ^ «.~4  .„.  :•' 
STRNG  CONTAINS  THE  CONVERTED  COMMAND  UN  EDITSPEC  FORMAT* 

PMPTR  IS  USED  TO  BREAK  up  A  command  STRIN6  INTO  FIELOS  OR  PARAMETERS 
PHPTR(.l)  IS  TmE  CHARACTER  INDEX  INTO  THE  ARRAY  STRNG 
INDICATING  START  OF  THE  FIELD 
PMPTRU2)  IS  LENGTH  OF  FIELD  IN  CHARACTERS 
PMPTR ( ,3)  IS  FIELO  TYPE  CODE 

NXTLN  IS  THE  CONTENTS  OF  Th£  NE*T  LINE  (NEXT  COMMAND)  IF  IT  HAS 
ALPEAOY  seen  InaOvERTANTLY  read 
NCHAR  IS  NUHSER  OF  CHARACTERS  of  command  IN  ARRAY  STRNG. 

ISUB  IS  COMMANO  NUMBER  CODE  RETURNED  BY  COMMANO  OECODER 
EOFIL  IS  ENO-OF-FILE  indicator  for  reading 
NXTRD  IS  .FALSE.  IF  NXTLN  has  not  been  read 

.TRUE.  IF  NEXT  line  HAS  BEEN  READ  INTO  ARRAY  NXTLN 

CMDOK  IS  .FALSE.  IF  COMMAND  COULD  NOT  BE  EXECUTED  DUE  TO  ERROR 

.TRUE.  IF  COMMAND  WAS  EXECUTED  AND  may  BE  BACKED-UP 
EDLIN  STORES  LINE  R£AC  IN  PACKED  EDITSPEC  FORMAT. 

MCSIZ  IS  NUMBER  OF  CHARACTERS  READ  INTO  MCLIN. 

EDSIZ  IS  NUMBER  OF  CHARACTERS  PLACEO  INTO  EDLIN. 


COMMON  /PRERRC  /  TPRERR 

FOUND  ONLY  IN  GTCMD  ANO  OEBOG  FOR  SUPRESSION  OF  NOT  A  COMMAND  PRINTING 


AUGUST  1.1977 

MODIFIED  JULY  10*  19791  CMSuF  126  CHANGED  TO  400. 


COMMON  /PRINTC/  DFDRC<58> 

]•  FLGOP (6  I . IR5LN* IRELN. ISEG (3) *NITC*LCO*NOD»NPPNl 

1.  ICNTO. ICNOD. IODNM (3) 

1.INSTRU26)  .CM3uf<400)  .LPB'JF  (126) 

1  .MORLN.MORIL  .NCHCO.LSTRT  .KSTRT  |,LINE»CTBP.LENG«  ITAB1  .IIIB2 

1.  RIDI.RID2.IHTEXT(?43) .IFLAGT.NOLIN.RTAB 

l't  NPSW.K2PSW.KSW.LWI0.SLEN.  INOIL  .  INDLT .  INDRT 

I*  NEWST(126) .MlNSTR.MNEwST.LINSTR  .  LNEWST .NINSTR.NNEWST 

lfXBLNK.LWlDSU.lbFSET 

l.IPERID 

I.ILNCLN 

I.1UNSC 

I .LFL AG, INL INE .L Auo  <  3) . I CYCLE , I TXTSG 

I.NSLVLU5)  .LSTCTU5)  .LENCT  US)  «IT0PS«LEVHST.INDST*LSNEW(1S) 

1.LENEWU5) 


DIMENSION  I PP (4,10) 

INTEGER  CMBUF.CTBP.RTAB.X8LNK  ,SLEN, FLGOP 
INTEGER  DFDRC 

INTEGER  RID2.RID1.  TEXTDR U26) 


EQUIVALENCE  (DFDRC (  D.IFOOT  ), (DFDRC (  2).IHEA0  ) 

It (DFDRC (  3) * ILNG  ).(DFDRC(  4).IwlD  ).(DFDRC(  S>.ILEVM  ) 

2* (DFDRC (  6) * IPPNF  ),(OFORC(  7).IPP0P  »,(DFORC(  8).IPPBPI» 

3,  (DFDRC  (  9)  .IPPBP2)  .  (DFDRCU'M  .IPNF  >.  (DFDRC  ( 11 ).  INS  » 

4*  (DFDRC  <  1?)  ,  IRL  J  ) .  (CFDRCU7)  .MT  ).  (DFDRC  U4)  .MB  t 

5t(DFDRCU5>  .ISAF  )  ,  (DFDRC  U  A)  .ISALN  ),  (DFDRC  ( 17) ,  ISAT  I 

6* (DFDRC U ft) » ISAA  ) ,  (OFDRCUR)  .IPPU.D) 

1 1  (LPBuf  <  1 1 0>  .LINES  JULPBU^UIU.LNSTA  )  ,  (LpBL'F  (112)  .LNEND  ) 

2* (LPBUF (113) »LSF 10  > . (LPBuF U 14) .LNSPC  ) . (LPBuF ( 1 15) .NLINE  ) 

3*  (LPBUF  ( 1 16)  .XI  )  .  (LPBUF  (117)  .JUST  ),  (LPBL'F  ( 118)  ,X2  ) 

4t (LPBUF ( 1 J9) ,X3  >. (LPBUF (120). LENOX  ). (LP0UF ( 121 ) ,XS  ) 

.  ••  »»  ...  »  •  «•  <«.,i  ...  i m  «  . t.i  .t  n  \  .  .  . 
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^  ^  ^  ^  M  w  I  %  tla*  4  ICw!  f^f  #  f  ^  W*  WW*  t  t  9  Wl/  ^ 

6«  CLPSurU3S)  .LENGE  >.  <LPRuF<12M.NCHCE  ) 

EQUIVALENCE  <  TEXT0R<1>,ICNT0> 


0r0RC<*8)  -  ALL  INFORMATION  RELATEO  TO  THE  DOCUMENT  FORMAT 
EOUl VALENCED  as  FOLLOWS: 

THE  FOLLOWING  ARE  VARIABLES  IN  THE  DOCUMENT  FORMAT  RECORD 
IFOOT  a  FOOTER  FORMAT  ID 

I HEAD  =  HEADER  FORMAT  ID 

ILNG  =  PAGE  LENGTH 

IWID  =  PAGE  WIOTH 

1LEVM  =  MAxImijm  NUMBER  OF  LEVELS 

JPPNF  s  PARAGRAPH  NUMBER  FORMAT 

IPP8P  a  PRINT  PARG  NO  AT  BOTTOM  OF  PAGE 

IPPBP1  *  PRINT  PARG  NO  AT  BOTTOM  OF  PAGE  -  \  ST  SUBFIELD 

IPPBP2  a  PRINT  PARG  NO  AT  BOTTOM  OF  PAGE  -  LAST  SUBFIELD 

IPNF  a  PAGE  NUMBER  FORMAT  ID 

INS  =  NO  SKIP  BETWEEN  hE ADEB/FOOTER  AND  PAGE  NUMBER 

IRLJ  a  RIGHT  /  LEFT  JUSTIFICATION 
MT  a  TOP  MARGIN  INLINES 

MB  a  BOTTOM  masgin  IN  LINES 

ISAF  a  SPACE  BETWEEN  FLAGS  AND  LINE  NUMBER  COLUMNS 
ISALN  a  SPACE  BETWEEN  LINE  NO  AND  TEXT  COLUMNS 
•  ISAT  a  SPACE  BETWEEN  TEXT  AND  AUDIT  TRAIL 

ISAA  =  SPACE  BETWEEN  AUDIT  NAME  AND  CYCLE  NOS 

IPP(l.A)  a  PARAG  SUBFIELD  TO  INCREMENT 

IPP (?  .  A )  a  PARAG  SU8FIEL0  TO  PRINT  FIRST 
IPP(3.A)  =  PARAG  SUSFIELO  TO  PRINT  LAST 
IPPU.A)  a  PARAG  FORMAT  IOENT 

FLGOP (6) =  DATA  COLUMNS  TO  BE  PRINTEO:  1-  X-50  .2-  38-L 

3-32-F  4-46-T  5-27-A  6-42-P 

IRSLN-  SLN  REC  ID 
IRELN-  ELN  REC  10 

ISLNa  STARTING  LINE  NO  TO  PRINT. USER  INPUT 
lELNa  ENDING  LINE  NUMBER  TO  PRINT. USER  INPUT 
ISEGa  TEXT  SEGMENT  1  THR3 
ISPACa  LINE  SPACING01=SINGLE  2=  DOUBLE 
NITC/  NO  INDEX/TABLE  CONTENTS 
LCO/  LOGIC  CHECK  OvERRIOE 
N00-NUM9ER  OF  OUTPUT  OEVICE  0  OR  l 
NPPN I -  NO  P/P  INITIALIZATION 

IFORMa  OOCUMENT  FORMAT  10 

ICNTO  a  CYCLE  NUMBER  FOR  THIS  LINE  IN  THIS  DOCUMENT 

ICNOD  a  CYCLE  NUMBER  FOR  THIS  LINE  IN  OTHER  DOCUMENT 

I0DNM<3>=  OTHER  DOCUMENT  NAME 

INSTR  «  ONE  LINE  CF  INPUT  FRO-  A  DOCUMENT  TEXT  TABLE 
CMBUF  a  THE  ARRAY  THAT  CONTAINS  THE  CO—AND  NEST 
LPBUF  a  1-109  WORDS  HOLD  THE  CURRENT  LINE  TO  BE  PRINTED  IN 
MACHINE  CHARACTERS 

LINES  a  TOTAL  NUMBER  OF  LINES  TO  PRINT  IN  THE  TEXT  COLUMN 

LNSTA  a  STARTING  LINE  NUMBER  TO  PRINT 

LNENO  *  ENDING  LINE  NUMBER  TO  PRINT 

LSF10  «  DOCUMENT  FORMAT  10 

INSPC  a  LINE  SPACING  FOR  PRINTING 

NLINE  a  CURRENT  LINE  NUMBER 

JUST  »  TEXT  JUSTIFICATION 

LD  ■  NllAMBER  OF  CAPITALLETTERS  FOUND  IN  ARRAY  INSTR 
LENGE  a  NUMBER  OF  MACHINE  CHARACTERS  IN  ARRAY  INSTR  BEFORE 
THE  COMMAND  STRING 

NCHCE  a  NUMBER  of  CHARACTERS  IN  COMMAND  STRING  (MACHINE  CTRSI 
M0RLN  a  NUMBER  OF  CMAPACTEPS (MACHINE)  IN  LPBUF 
N0R1L  «  THERE  ARE  MORE  CHARACTERS  IN  THIS  LINE  TO  BE  CHECKED 
IF  EQUIL  TO  ONE  .  NO  MORE  IN  LINE  IF  EGUIL  TO  ZERO 
NCHCO  *  NUMBER  OF  CHARACTERS  IN  COMMAND  STRING  IEDITSPED  CTRS> 
LSTRT  ■  FIRST  WORO  IN  ARRAY  INSTR  THAT  HAS  NOT  BEEN  SEARCHEO 

.  ,.r.  chp  am  jmTfOM.t  _rnM« .  _i  icco  tn  i  _ _  - 

Nru  -  muiumm  Nii-apo  nr  ntorr7.»rrr«c, 

_iMTwnri4.N«i  t  u»  ai7>  i>*  tm.  «»rnwi»Bv  w4  v  ..  - — — -  .  —  ■  - 
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TS1 


KSTRT 


LINE 


■  FIRST  CHARACTER  IN  FIRST  *OWD  IN  ARRAY  IMSTR  THAT  HAS 
NOT  SEEN  SEARCHED  FOR  AN  INTERNAL  COMMAND*  USED  IN 
LOCAC 

*  INSTRUCTIONS  FOR  PROCESSING  A  LINE  SNEG-  COPY  COMMAND 
ZERO-  THIS  OOCUMENT  .POSITIVE-  CONTINUE  TO  SCAN  PRESENT 
LINE  FOR  COmmanO. 

«  Command  TO  PE  PROCESSED  IF  EQUIL  TO  ONE. NONE  IF  ZERO, 
a  NUMBER  OF  INTERNAL  CHARACTERS  IN  ARRAY  INSTR  BEFORE 
THE  COMMAND  STRING 
a  LEFT  MARGIN  OF  TEXT  COLUMN 

*  RIGHT  MARGIN  OF  THE  TEXT  COLUMN 
RECORD  ID  OF  THE  LINE  TC  SE  RE AO  NEXT 

THE  RECORD  WHERE  ThE  START  OF  THE  TABLE  IS  FOUND 


CTBP 
LENG 

ITAB1 
I  TAB? 

RID1* 

RID?= 

IHTEXT(2A3)=  HEAOER  RECORD  IN  TEXT  TABLE  -CURRENT  RECORO 
IFLAGT  *  POINTER  TO  THE  LAST/NEXT  TEXT  TABLE  KEY. 
KOL1N 
RTA8* 

RTAB= 

RTAB* 

RTABs 
NPSW  J 


1 sNO  MOPE  LINES  TO  PE  PRINTED. *0 .MORE  LINES  TO  BE  PRINTED 


K2PSW 


KSW 

LWID 

SLEN 


♦10 
-2  * 
♦2  * 

0  * 

-l 

-3 

0 

1 

3 

-1 

a  0  a 
1  * 
I  * 


TABLR  ROUTINE  SAID  THE  TABLE  IS  COMPLETE 
PROCESSING  A  COPY  TABLE  COMMANO 
PROCESSING  A  T8  COMMAND 
NORMAL  LINE  PROCESSING 

a  apa  NOT  NEXT  CTR  TO  BE  PROCESSED 
LJ.RJ.CJ  •  NOT  NEXT 


a  apa  COMMAND  READY 
*  aJUST*  COMMAND  REAY 
a  «SL*  NO  PREVIOUS  «P* 

TWO  apa  COMMANDS  ON  SAME  LINE 
•SL*  FOUND  AFTER  A  aP» 


i  NUMBER  OF  CTRS  IN  PRINT  LINE 

:  SPACE  AT  LINE  END  IN  THE  (KSW)  CURRENT  PRINT  LINE 
NEWST  <126)  *  INPUT  (INSTR)  IN  EXTERNAC-MACHINE  CTRS 
MINSTR  a  MAXIMUM  WORDS  ACTUALLY  READ  INTO  INSTR 
MNEWST  a  MAXIMUM  WORDS  ACTUALLY  PLACED  INTO  NEWST 
LINSTR  a  LAST  CHAPACTER  PROCESSED  IN  INSTR 
LNEWST  a  LAST  CHARACTER  PROCESSED  IN  NEWST 
NINSTR  a  TOTAL  CTRS  ACTUALLY  IN  INSTR 
NNEwST  a  TOTAL  CTRS  ACTUALLY  IN  NEWST 
XBLNK  a  ONE  MACHINE  BLANK  RIGHT  JUST 


LWIOSU 
IOFSET  = 
INDRT* 
1NDLT* 
IND1L 
IPERIO 
ILNCLN 
IUNSC 

IFLAG 
INLINE 
IAUD(3) 
ICYCLE 
ITXTSG 
NSLVL  a 
LSTCT  a 

LENCT  * 

ITOPS  ■ 

LCVMST  a 


NO.  SUS  IN  LINE  WIDTH 

NO.  COmmanO  CTRS  TO  SKIP  TO  REACH  NEXT  CTR  TO  PROCESS 
RIGHT  INDENTATION 
LEFT  INDENT 

sFIRST  PARAGRAPH  INDENT 
aONE  MACHINE  PERIOD  IN  RIGHT  LOCATION 
CLEAN  UP  BLANKS  ON  LINES 1=YES.O»NO 
MACHINE  UNDERSCORE  CHARACTER 

CURRENT  FLAG  10 
CURRENT  LINE  NUMBER  TO  PRINT 
CURRENT  OOC  NAME  TO  PRINT 
CURRENT  CYCLE  TO  PRINT 
CURRENT  TEXT  SEGMENT  TO  PRINT 
STACK  HOLDING  nesteo  level  number  FOR  INTERNAL  COMMANDS. 
STACK  HOLDING  LOCATIONS  OF  THE  STARTING  CHARACTER  OF 
NESTEO  INTERNAL  COMMANDS. 

STACK  HOLOING  LOCATIONS  OF  THE  ENOING  CHARACTER  <•) 

OF  NESTEO  INTERNAL  COMMANDS. 

POINTER  POINTS  TO  THE  TOP  OF  STACK.  (NOTE  THAT  THE  FIRST 
ELEMENT  OF  ARPAY  Is  CONSIDERED  AS  TME  BOTTOM  OF  THE 
STACK.  E.G.  NSLVL(l)  IS  TME  BOTTOM  OF  THE  STACK  IF  ITOPS 
•GT.  1) 

HIGHEST  NESTING  LEVEL. 


65 


hikimJ 


uuuoooo  u  o  uuuuouu  uu  oooo  uuu  uuu  uuu  uuuu  ooo  ouu  ouu  uuu  uuu H 


LSNEW  «  STACK  HOLDING  STARTING  LOCATION  OF  COMMANDS  IN  NEWST. 
LENEW  *  STACK  HOLDING  ENDING  LOCATION  <*)  OF  COMMANOS  IN  NEWST. 


SEPT  1979 

•COMMON  /PRTBLC  /  ACTALN 
ACTALN  *CT*  COMMAND  LINE  NUMBER 


••  RESTORE  COMMON  -  DOCUMENT  PARTITION 
..  MARCH  25*  1979 

COMMON  /RESOOC/  OOCNM,  OSNAME «  OSNO*  TYPE*  OLOTYPt  SEONH* 

♦  EXSEON,  CVREC.  CVIN,  RESERR,  CREUID,  RESBUF 


INTEGER  DOCNHO) 

NAME  (IN  EDITSPEC  CHARS)  OF  DOC 
CURRENTLY  BEING  TRANSFERRED  TO 
THE  CONVERTION  MEDIUM 

INTEGER  DSNAME<2) 

OATASET  NAME  TO  WHERE  THE  CURRENT 
DOCUMENT  IS  TO  BE  STORED 

INTEGER  DSNO 

DATASET  NUMBER  OF  THE  DATASET 
IDENTIFIED  IN  DSNAMEO 

INTEGER  TYPE 

TYPE  CODE  OF  RESTORE  RECORD  JUST 
OBTAINED 

INTEGER  OLOTYP 

TYPE  CODE  OF  THE  LAST  RESTORE 
RECORO  (USEO  TO  ENFORCE  SEQUENC 
OF  RESTORE  OPERATIONS) 

INTEGER  SEONM 

SEQUENCE  NUMBER  OF  THE  CURRENT 
RESTORE  RECORO 

INTEGER  EXSEQN 

(EXPECTED)  SEQUENCE  NUMBER  OF  THE 
NEXT  RESTORE  RECORO  TO  BE  READ 

INTEGER  CVIN 

LOGICAL  UNIT  NUMBER  OF  THE  CONV 

INPUT  DATA  SOURCE 

LOGICAL  RESERR 

SWITCH  TO  SHOW  IF  AN  ERROR  HAS 
OCCURED  OURING  THE  RESTORE  PROCESS 

INTEGER  CREUIQO) 

CREATOR  USER  10  OF  THE  OWNER  OF 
THE  CURRENT  DOCUMENT 


jC. — 


„  __,»NTcr.Fo ..ruorcrtn\  . ..  _ _ 

•  wufVTMiiM  Mnwaro  nr  nrorrT.nerm,  n*u«r.»* 
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RAW  FORM  OF  THE  C0NVERT10N  RECORD 
DATA.  TO  RE  SUPPLIED  TO  THE 
INDIVIDUAL  RESTORE  ROUTINES 


INTEGER  RESBUF(IOO) 

GENERAL  PURPOSE  BUFFER  AREA  FOR 
THE  RESTORE  ROUTINES  TO  SHUTTLE 
INFORMATION  BETWEEN  THEMSELVES. 
THE  ACTUAL  FORMAT  OF  DATA  IN  THIS 
BUFFER  IS  DEPENDENT  ON  THE 
CLUSTER  OF  RESTORE  ROUTINES 
CURRENTLY  ACTIVE  (IE.  RESTORING 
TEXT  TABLE.  AUDIT  TABLES.  ETC) 


AUG  17.  1977 

SCRATCH  CO“MON,  FOR  QUANTITIES  USED  AS  DUMMY  ARRAYS  IN  DIFFERENT  ROUTINES* 
COMMON  /SCRTC/  IHEOI2A3) 

IHED (243)  IS  USED  AS  ARGUMENT  TO  TABLE-HANDLER  ROUTINES. 


SEARC  ROUTINE  COMMON 

THIS  COMMON  AREA  WAS  AOOEO  TO  REOUCE  THE  NUMBER  OF  PARAMETERS 
PASSED  TO  SEARC  TO  A  TOLERABLE  LEVEL. 

TH£  ROUTINES  CALLING  SEARC  ARESLOCAT. CHANG, ERASE.LOHAR 
INTEGER  RITO.TSID.SWSO 

COMMON  /SEARCH/  LBLNK,LSBLN.LIT0(50.4) .LIPA(50)  .RITO(50.2). 

•ILITO. ILIPA. 1MODE. I8YT ,NRMTCH»TA$EN»NTEF0»T5I0 (10)  »SW50*~ 
•ICNT.ITST 

LBLNKJ  LEADING  BLANKS  IN  A  SOUGHT  STRING. 

LSBLN:  TRAILING  BLANKS  IN  THE  SOUGHT  STRING. 

LITO:  ARRAY  TO  HOLOLlNE  NUMBERS  ANO  POSITIONS  OF  STRING. 

LITO(N,l ) SLINE  NUMBER  OF  LINE  WHERE  STRING  STARTS. 
LIT0(N,2) :  POSITION  IN  LINE  OF  THE  FIRST  CHARACTER 
OF  THE  SOUGHT  STRING.. 

LITO(N,3):  LINE  NUMBER  OF  LINE  WHERE  STRING  ENDS. 
LITO(N.4):  POSITION  IN  LINE  where  STRING  ENOS. 

LIPAJ  SAME  AS  LITO  USEO  FCR  NEAR  MATCH  FINDINGS. 

RITO(S0.2) :  RECORD  ID'S  OF  STARTING  AND  ENDING  LINE  NUMBERS 
OF  EACH  OCCURANCE  OF  THE  SOUGHT  STRING. 

ILITO:  NUMBER  OF  Exact  OCCURANCES. 

ILIPA:  NUMBER  of  near  match  occurances. 

IMOOE:  SWITCH  THAT  INDICATES  TO  SEARC  ROUTINE  WHETHER  TO 
SEARCH  FOR  ALL  OR  ONLY  ONE  OCCURANCE  OF  THE  SOUGHT 
STRING  IN  EACH  AREA  SPECIFIED. 

NRMTCH:  A  SWITCH  THAT  is  SET  TO  ONE  IF  THE  NEAR  MATCH 
OCCURANCES  ARE  TO  RE  LISTED. 

IASEN*  WHEN  THIS  SWITCH  IS  ZERO  WE  DECAPITALIZE  THE  STRING 
LEAVE  THE  STRING  EXACTLY  AS  IT  IS. 

(REMOVE  ALL  CENT  SIGNS)  BEFORE  MATCHING.  ELSE  WE 
NTEFOt  NUMBER  OF  TEXT  segment  ID'S  GIVEN  RY  USER. 

TSXOdOM  ARRAY  CONTAINING  THE  TEXT  SEG“ENT  IO'S.SEARCHlNG 
WILL  OCCUR  ONLY  IN  SPECIFIED  LINES  OP  PAIRS  OF  LINES 
ANO  THEN  ONLY  AMONG  THOSE  LINES  THAT  HAVE  ONE  OF  THE 
TEXT  SEGMENT  ID'S  IN  ThE  TSIO  ARRAY. 

SWSOt  SINCE  THE  NUMBER  OF  OCCURANCES  OF  a  STRING  IN  AN  AREA 
IS  LIMITED  BY  THE  SIZES  OF  ARRA*  LITO(TO  50)  THIS 
SWITCH  WILL  BE  SET  TO  ONE  IF  THEME  ARE  MORE  OCCURANCES 


67 


ooou  uuuuuuuu  u  uu  uuu 


JULY  22.  197? 

SIZE  COMMON 

COMMON  /SIZEC/  NUSIO.NACTN.NOSNM.NDOCN.NDATE.NTIME 
NOSIO  IS  SIZE  OF  USER-ID  <1?  CHARACTERS)  IN  WORDS  a  (NCUdD/NCU 
NACTN  IS  SIZE  or  ACCOUNT-N'JMSER  (12  CHARACTERS)  IN  WORDS 
NOSNM  IS  SIZE  OR  DATASET  na -E  if,  CHARACTERS)  IN  WORDS# 

NOOCN  IS  SIZE  OF  DOCUMENT  name  (j2  CHAWACTERS)  IN  WORDS. 

NDATE  IS  SIZE  Or  DATE  FIELD  (OD-MMM-yy  9  CHARACTERS)  IN  WOROS. 
NTIME  IS  SIZE  OF  TlME-OF-OAY  (8  CHARACTERS)  IN  WORDS. 


AUGUST  29.1979 

•  COMMON  /SKPGC/  ISP 

ISP  SKIP  PAGE  SWITCH  *0  NOSKIP,  *1  SKIP  PAGE 
COMMON  USED  IN  PRNTB  AND  STRM£  SUBROUTINES 


SYSTEM  KEYWORO  INDEX  TABLE  COMMON 
APRIL  13.  1978. 

COMMON  /SKYW0C/KYWDT(5.6) 

C  KYWDT  J  SYSTEM  KEYWORD  TABLE 

C  KYWDT ( 1 «N) s  THE  PARTICULAR  PART  OF  THE  FILENAME 
C  KYW0T(2.N)s  THE  ID  OF  THE  FIRST  RECORD 

C  KYWDT ( 3.N) -  THE  SIZE  OF  THE  PRIMARY  KEY 

C  KYWOT(4,N)s  THE  SIZE  OF  THE  secondary  KEY 

C  KYWDT (S.N)s  THE  STORAGE  MODE  (PACK/POINTI 

C  WHERE  N  IS  THE  KEYWORD  INDEX  (1  TO  6) 

C 

C 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

-r. 


AUG  17,  1977 
SYSTEM  COMMON 

INTEGER  SDS.SBDS.SYSFL.BATCH.USIO.EOTBL 
LOGICAL  MULTI. BAKUP 

5  COMMON  /SYSTM/  I3LNK, JBLNK.SOS.SBOS.SYSFLfA) .USIDI3) .LOGGD. MULTI* 
IBAKuP. BATCH, ISQTY(5.13) .ITNMC3.8) . I GEN. I SUP. 1SBDD (5) . 100C 
2.ICLEAR 

DIMENSION  ISACS<5) .ISCHA(S) .ISOIR(S) .ISSPC(5) ,ISUSR(5> . 

1ISD0C(5) ,ISFOF(S),ISHEF(S) .ISPGNC5) .ISPRF(5) .ISPRNI5) .ISTTFI5)* 
2IS8AK  <5) 

EQUIVALENCE  CISACSd)  .ISOTYd.  1 )),{ ISCHA  ( 1 ),  ISOTV  (1 ,  2M 
EQUIVALENCE  (ISDIRd)  .ISOTYd,  3)).(ISSRCd),  ISOTYd*  4)) 
EQUIVALENCE  CISUSRC1). ISOTYd,  5))  *  (ISOOC  d ) .  ISOTY  d  ♦  6)1 
EQUIVALENCE  CISFOFd), ISOTYd,  71 ),  ClSMEFII )  .ISOTYd  ♦  81) 
EQUIVALENCE  (ISPGN(I)  .ISOTYd,  9))  ,  (  ISPRF  d  )  ,  ISOTY  d  ,  1 0)1 
EQUIVALENCE  (ISPRN ( l ) .ISOTY  d , 11 ) ) . (ISTTF  d ) .ISOTY  d  *12) ) 
EQUIVALENCE  (ISBAK(l)  .ISOTYd  ,13) ) 

EQUIVALENCE  (EDT3L.IBLNK) . (MCHBL. JBLNKI 


I8LNK  IS  A  WOPO  FULL  OF  EOITSPEC  BLANKS  (ALSO  KNOWN  AS  EOTBU 

jblnk  is  a  word  full  of  machine  blanks  (also  known  as  mchbd 

SOS  IS  THE  OATASET  NUMBER  OF  ThE  SYSTEM  DATASET. 

S80S  IS  THE  OATASET  NUMBER  OF  THE  SYSTEM  BACKUP  DATASET 
SYSFLI4)  CONTAINS  THE  SYSTEM  TABLE  GENERIC  FILE  NAME  IN  ITS 
LAST  3  WORDS.  THE  FIRST  WORD  IS  BLANK. 

CSYSFL(I) .1*2.4)  w/124  SYSTEM  TABLE/ 

usioo)  is  the  current  user  id 

LOGGO  IS  ZERO  IF  NOBODY  HAS  LOGGED-ON,  IF  A  VALID  USER  LOGS  ON* 

LOGGD  CONTAINS  THE  RECORD  10  OF  THE  DATA  RECORD  ASSOCIATED 


WITH  THE  USER  IN  THE  USER  TABLE. 

MULTI  IS  .TRUE.  IF  THIS  IS  A  MULTIPLE  USER  EOITSPEC  SYSTEM. 

....  .  * A  ctMA,r . - 

iMvwnru.Nt*  th»  n»  tu»  «rnui»B*  wFv  ........... 
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USER  EOJTSREC  SYSTEM  IS  CREATED. 

BAKU?  IS  .TRUE.  IF  BACK-UPS  ARE  TC  BE  KEPT.  SO  THAT  THE  SYSTEM 
MAY  be  recreated  AFTER  failure. 

BATCH  IS  ZERO  IF  THE  EDITSPEC  SYSTEM  IS  FOR  USE  IN  INTERACTIVE  MODE. 
ONE  IF  IN  BATCH  MODE. 

ISOTY  IS  ACTUALLY  13  0IFFE«£NT  ARRAYS.  FOR  EACH  OF  THE  13  ARRAYS. 

THE  FOLLOWING  5  QUANTITIES  ARE  DEFINED.  IN  ORDER 

1.  THE  PARTICULAR  PART  OF  THE  FILE-NAME  (FJLNH (11) 

2.  THE  10  OF  THE  FIRST  RECORD 

3.  THE  SI7E  OF  THE  PRIMARY  KEY 

4.  THE  SIZE  OF  THE  SECONDARY  KEY 

5.  THE  STORAGE  MODE  (PACK/POINTI 

FOR  EACH  FIVE  WO»D  ARRAY.  THE  FORTRAN  VARIABLE  NAME.  THE  PARTICULAR 
PART  OF  THE  FILE-NAME  (FlLNM ( 1 )  )  ,  AND  A  DESCRIPTION  OF  THE 


TABLE  (FILE)  FOLLOWS. 


is —  value  of  is — m 

(FILNM(D) 


DESCRIPTION 


I  SACS 

•ACS* 

ISCHA 

•CHA* 

ISOIR 

•DIR* 

ISSPC 

•SPC* 

ISUSR 

•USR* 

ISOOC 

•OOC* 

ISFOF 

•FOF* 

ISHEF 

•HEF* 

ISPGN 

•PGN» 

ISPRF 

•PRF* 

1SPRN 

«PRN» 

ISTTF 

•TTF» 

ISBAK 

•8AK* 

ACCOUNTS  TABLE 
CHARGES  TABLE 
DOCUMENT  DIRECTORY 
SPECS  TABLE 
USER  TABLE 
DOCUMENT  FORMAT 
FOOTR  FORMAT 
HEADER  FORMAT 
PAGE  NUMBER  FORMAT 
PARAGRAPH  FORMAT 
PARAGRAPH  NUMBER  FORMAT 
TEAT  TABLE  FORMAT 
BACK-UP  TABLE 


ITNM  IS  USED  TO  PPINT  ERROR  MESSAGES  BASED  ON  PMPTR  CODE. 

1GEN  IS  USUALLY  ZERO)  EXCEPT  DURING  GENERATE/UPDATE.  WHEN  IT  IS  ONE. 
ISUP  IS  SUPERVISOR  SWITCH. 

ISBDO(S)  IS  TABLE  definition  ARRAY  FOR  ANOTHER  system  table. 

IOOC  IS  FORMAT-ID  OF  LEVEL  1  DOCUMENT  FORMAT  COMMAND  LAST  PROCESSED. 

I CLEAR  IS  1  IF  BUFFERS  ARE  TO  BE  CLEAREO  AFTER  EVERY  COMMAND. 


•  *  •  r 


; 


‘  f 

1 


AUG  5.  77 

TABLE  HANDLING  ROUTINES  COMMON  AREA 
INTEGER  MORID 

COMMON  /TABLC/  NL0C.ISH0R(II)«IRH0R(?43>.H0RI0 

ISHOR.IRHDR  ARE  SCRATCH  SUPER-  AND  REGULAR-  HEADERS  USED  BY  TBL-HNDLR. 
HORIO  IS  10  OF  1H0R  RETURNED  BY  TBLCS 


SEPT  27.  1977 

TABL  ANO  COPY  TABLE  SWITCHES  COMMON. 
INTEGER  TBINIT.T9CTSW.TBERR 
.COMMON  /TBCTSC/  TBTHIT.TBCTSW.T8ERR 
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TBIMT  IS  1  rOR  INITIALLING  CALL  •  LATER  0* 

TBC1SW  IS  I  FOR  •70.  AND  2  FOR  *CT. 

TSEBR  IS  0  FOR  NO  TABLE  ERROR  SO  FAR*  >0  FOR  ERROR  ENCOUNTERED* 


SEPTEMBER  5.1978 

COMMON  /T8ERRC/  LNERRO 
LNERROR  LINE  NUMBER  JUST  REAO 


OCTOBER  22.  1977 

HOOIFIEO  JULY  10.1979:  ADO  MAXCHRl  CHARS(SOO)  TO  CHARSdOOOl* 

INTE6ER  CHARS. LEN 

COMMON  /TBLKC/  CHARS (1 000 > *LEN*MAXCHR 

CHARS (1000)  IS  RETURNEO  BY  STRME .  AS  A  BLOCK*  IN  UNPACKEO  EOITSPEC. 
LEN  IS  NUMBER  OF  CHARACTERS  IN  CHARS. 


OCTOBER  22*  1977 

MODIFIED  JULY  10.  1979!  TBCHRSU85)  TO  TBCHRS(IOOO)  • 

BLOCK.  IN  INTERNAL  (EOITSPEC).  COMMON. 

INTEGER  T9CHRS ( 1 000 ) . TBLEN.TBC.TBCODE 
COMMON  /TBLK1C/  TBCHRS. TBLEN.TBC.TBCODE 

TBCMPSdOOOJ  STORES  A  BLOCK  OF  CHARACTERS  IN  UNPACKED  EOITSPEC  FORMAT. 
TBLEN  IS  LENGTH  OF  CHARACTERS  IN  TBCHRS. 

TBC  IS  INDEX  OF  LAST  CHARACTER  PROCESSED  IN  TBCHRS. 

TBCODE  IS  POSITIVE.  IF  TBCHRS  IS  A  TABLE-RELEVANT  COMMAND: 

1*2.3. 4. 5. 6  CORRESPOND  TO  *TH.  *TE.  *TB.  *R.  *CT.  *CO  RESPECTIVELY. 


A  ^ 


C 


<. 


L 

C 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FEB  17.  1978 

INTEGER  RMSAV.PNSAV.TBCMX.TBRCH.BfcFNO.HDFND 

INTEGER  PRES .PREL.SUFS.SUFL .OCOLS  «  ROW  ID. ROW ID 

common  /tbnitc/  lmsav.lmisav.rmsav.tbcmx.tbrcm.pnsav.rwfno.hdfnd* 

I  PRES  (AO)  .PREU40)  .SUFSI40)  .S'JFS(AO)  .OCOLS  (40)  .RCWI0(6>  .  RMNDX  (5) 


LMSAV  SAVES  OLD  VALUE  OF  LEFT  MARGIN  FOR  PARAGRAPH. 

LM1SAV  IS  LEFT  MARGIN  FOR  FIRST  LINE  OF  PARAGRAPH. 

RM$AV  IS  RIGHT  MARGIN. 

PNSAV  IS  PARAGRAPH  NUMBERING  FORMAT  OF  PREVIOUS  *P  COMMANO  SAVEO. 

TBCMX  IS  MAXIMUM  NUMBER  of  CHARACTERS  in  A  TABLE  RO*. 

TORCH  IS  A  MORO  PACKEO  WITH  BETwEEN-ROW  CHARACTERS  IN  MACHINE  FORMAT. 
RWFND  IS  1  IF  start  OF  next  row  (OR  TBL-HDR  OR  TBL-ENO)  HAS  BEEN  REAO. 

0  IF  T3READ  MUST  9ECALLE0  TO  GET  A  NEW  LINE. 

HDFnD  IS  INITIALLY  0.  SET  TO  I  IF  A  ROW  RETIJRNEO  IS  A  TBL-HEAOER. 

PRES  IS  INOEX  OF  CHARACTER  COLUMN  IN  LINE  WHERE  PREFIX  FIELO  STARTS 
PREL  IS  LENGTH  OF  PREFIX!  INDEX  IS  TABLE  COLUMN  NUMBER. 

SUFS  IS  INOEX  WHERE  SUFFIX  STARTS. 

SUFL  IS  LENGTH  0F  SUFFIX  (IN  CHARCTERSI. 

OCOLS  IS  POSITION  OF  OECIMAL  POINT  IN  A  FIELD. 

ROWIO(G)  IS  ROw-IO  AT  OIFFERENT  LEVELS  OF  *CT. 

RMNDX (S)  IS  USED  FOR  INDEXING  TfiPwM(2,,5>  TO  GET  NEXT  ROW-ID. 

oowrn.*un  o«..n*  .or  tuirt.i  i.rn  rn  tcoa  b.  tbuit _ _ 

WO*  •  M.tiuuM  huimscb  hc  r>terrT.*crrcc  haiacfxc 
.nxvwnTU.Nii  th.  cm  n»  ru>  c.rn*inAuv  *F»  ............  *•••■ — —  _ —  • 
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OCTOBER  22.  1977 
✓TABLE-NOTE/  COMMON. 

INTEGER  TNARR.TNLEN.TNNUM 
'COMMON  /T8N0TC/  TNARR (500 1 .TNLEN.TNNUM 

TNARR (500)  IS  USEO  TO  STORE  TABLE-NOTES.  IN  MACHINE  Al. 

tnlen  is  index  or  last  wopo  or  tnabb  that  has  been  filled  up. 

TNNUM  IS  LAST  TABLE-NOTE  IDENTIE RATION  NUMBER  USEO  SO  FAR. 


OCTOBER  22.  1977 

integer  t8nam,tbbbkc(6> .tbcll  wo. 6> .tbncl<6» .tbclmwo.5) 

INTEGER  TBRwM(2. 100.5) .T9NRw(5) .TBLVL.TBDOC (3.5) .TBLNO (5) 

INTEGER  TBH0R(2A3) .TgrLG.TBLOC 

COMMON  /TfiPARM/TBNAM. TBBRKC* TBCLL. TBNCL.TBRWM* TBNRW. TBLVL.TBDOC. 

I TBLNO . T0HOR *  T8FLG , TBLOC 

T8NAM  IS  T4BLE-FOBMAT-IO. 

TBBRKC (6)  IS  BREAK  CHARACTERS.  AT  VARIOUS  LEVELS  Of  «CT. 

TBCLL  IS  COLUMN-IO-L1ST  IN  VARIOUS  »T8  COMMANDS. 

TBNCL  IS  NUMBER  OF  ENTRIES  IN  TBCLL 

TBRwM  IS  HOW  map  (LIST  OF  SOlJRCE-IO.  DESTN-IO)  AT  VARIOUS  LEVELS. 
TBNBW  IS  NUMBER  OF  ENTRIES  IN  TBRVM 
TBLVL  IS  CURRENT  *CT  LEVEL. 

TBOOC  SAVES  DOCUMENT  NAMES  FOP  «CT. 

TBLNO  SAVES  THE  LINE  NUMBER  OF  THE  *CT  COMMANDS.  FOR  GOING  BACK. 
TBH0R.  TBFLG.  TBLOC  ARE  FOR  TABLE -HANDLING  ROUTINES. 


16  MAY. 1978 

TABLE-PARAMETERS  acs-table  common. 

INTEGER  OR1ACS.DR2ACS.DR3ACS.ORAACS 

COMMON  /TPACSC/  DPIACSfM .DR?ACS<9> .DR3ACS (1 ) .DR4ACS (30) . IOl ACS. 
lID2ACS.I03ACSi'l'0iACS,i?ACS3.I2ACSA.LlACS.L2ACS.L3ACS.LAACS 
DRNACSO  IS  FOR  STORING  OATA  RECORD  N  OF  ACS-TABLE. 

IDNACS  IS  RECORD-ID  OF  DATA  RECORD  N  OF  ACS-TABLE. 

I2ACS3  IS  INDEX  OF  ELEMENT  3  OF  DATA  RECORD  2  OF  ACS-TABLE. 
I2ACSA  IS  INOEX  OF  ELEMENT  A  OF  OATA  RECORD  2  OF  ACS-TABLE. 

LNACS  IS  LENGTH  OF  OATA  RECORD  N  OF  ACS-TABLE  (IN  CHARACTERS) . 


JULY  22.  1977 

DOCUMENT  AUDIT  TRAIL  (GENERAL)  TABLE  PARAMETERS  COMMON. 
INTEGER  OR 1  AUG «0R? AUG 

COMMON  /TPAUG/  DRlAUG(ll) ,0R?AUG(240) .I01AUG.I02AUG.I1AUG5* 
H1AUG6.L1AUC.L2  AUG 

OR1AUG  MOLOS  OATA  RECORO  ]  FROM  AuG-TABLE. 

OR2AUG  HOLDS  OATA  RECORO  2  FROM  AUG-TABLE. 

101  AUG  IS  RECORO  10  OF  0R1AUG. 

I 02 AUG  IS  RECORO  10  OF  0R2AUG. 

.  m.iim  t«  mnr ■  or  n  rmr mt  %  or  namifl. 
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C  UAUG6  IS  INDEX  OE  ELEMENT  6  OF  0R1AUG, 

LlAuG  IS  LENGTH  or  DRIAuG  (IN  CHARACTERS*  • 
L2AUG  IS  LENGTH  Or  DR2AUG  (IN  CHARACTERS). 


JULY  22%  1977 

TABLE  PARAMETERS  COMMON,  TOR  DIR-TABLE. 

INTEGER  0R10IR.DS2DIR.DR30IR 

COMMON  /TPDIRC/  CR101R  C JS» ,0R2DIR { 12) .DR3DIR (28) • I010IR.I020IR. 

1 1 030 1 R  .  1 1 0TR9  •  I  To  I R  A I L*1 0 1 R  •  L  20 1 R.  L  3D  I R 
DRlDIR  HOLOS  DATA  RECORD  1  EROM  0I»-TABLE. 

0R2DIR  HOLOS  DATA  RECORD  ?  EROM  DIR-TABLE. 

0R3CIR  HOLDS  OATA  RECORD  3  EROm  OIR-TABLE. 

I010IR  IS  ID  OE  OATA  RECORD  1  EfiCM  OIR-TABLE. 

ID20IR  IS  ID  OE  DATA  RECORD  2  EROM  DIR-TABLE. 

ID30IR  IS  ID  OF  DATA  RECORD  3  EPOM  OIR-TABLE. 

11DIR9  IS  INDEX  OE  ELEMENT  9  IN  DATA  RECORD  1  OE  DIR-TABLE. 

I 10 IRA  IS  INDEX  OE  ELEMENT  10  IN  OATA  RECORD  1  OE  DIR-TABLE  (A=10). 

L10IR  IS  LENGTH,  IN  CHARACTERS,  OE  OATA  RECORD  1  OE  OIR-TABLE. 

L2DIR  IS  LENGTH,  IN  CHARACTERS.  OE  OATA  RECORD  2  OE  DIR-TABLE. 

L30IR  IS  LENGTH.  IN  CHARACTERS.  OE  OATA  RECORD  3  OE  DIR-TABLE. 


JULY  22,  1977 

TABLE  PARAMETERS  COMMON.  EOR  ORT-TABLE. 

INTEGER  DR1DRT 

COMMON  /TPDRTC/  DRlORT (32) . I01DRT  «L1DRT 
0R10RT  HOLDS  OATA  RECORD  1  EROM  ORT-TABLE. 

ID1DRT  IS  ID  OF  DATA  RECORD  I  EfiCM  ORT-TABLE. 

L1DRT  IS  LENGTH.  IN  CHARACTERS.  OE  DATA  RECORD  1  OE  DRT-TABLE. 


TABLE  PARAMETERS  COMMON,  EOR  LC-TABLE. 

INTEGER  0R1LC 

*  COMMON/TPLCC/  0R1LC(22) .ID1LC.LILC 
0R1LC  HOLDS  DATA  WECORO  1  EROM  LC-TABLE. 

101LC  IS  10  OE  OATA  RECORO  1  EROM  LC-TABLE, 

L1LC  IS  LENGTH,  IN  CHARACTERS,  OE  DATA  RECORD  l  OE  LC-TABLE. 


OECEMBER  8.  1977 
PUL-TABLE  PARAMETERS  COMMON. 

INTEGER  OR 1 PUL 

» COMMON  /TPPULC/  0R1PUL<6*)«I01PUL.11PULD»L1PUL 

OR 1  PUL (64>  IS  OATA  RECORO  1  OE  PUL-TABLE. 

ID1PUL  IS  10  OE  OATA  RECORO  1  OE  PUL-TABLE. 

IIPULO  IS  INDEX  OE  ENTRY  13  IN  DR1PUL 
LI PUL  is  LENGTH  OE  OR  ll  «(I1PULD-1«N00CN»*SPECS>*NCU 


SEP  26.  1977 

TABLE  PARAMETER  COMMON  EOR  TTE-TA8LE. 


tktrer.ro  ftsim.i  ittf  ..  . . . 

NO*  •  mx y f mi im  niimbpr  nr  niorry.xfrrce  nirtcrtc 
nprwnr t u .mi i  tm>  bit,  ii»  tm.  c.rnhnliiv  - 
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c 
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c 

c 

c 

C 
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.COMMON  /TPTTFC/  JDITTF.ORJ TTF  (2431  .L1TTF  , 

INTEGER  SKPLN.RwChr.COLMx. FORMT (6.40) 

EQUIVALENCE  (?KPLN.0R1TTF<1)I .  (BwCHR.DRITTF (2) ) 

EQUIVALENCE  <COLMX,oaiT7F<3>>,  (FORMT ( 1 . 1 ) .DR1TTF C4) > 

« 

I01TTF  IS  RECORD-IO  OF  OATA  BECCRO  I  OF  TTF-TABLE. 

0RJTTF(?43>  IS  USED  TO  HOLD  CONTENTS  OF  DATA  RECORD  1  OF  TTF-TABLE. 
L1TTF  IS  LENGTH  (IN  CHARACTERS)  OF  DATA  RECORD  1  OF  TTF-TABLE. 

SKPLN  IS  NU“3EB  OF  LINES  TO  RE  SHIPPED  BETWEEN  ROWS  OF  YABLE. 

RWChR  IS  CHARACTER  TO  3£  USED  IN  PRINTING  A  SOLID  ROW  BETWEEN  ROWS. 
COL*X  IS  NUMBER  OF  COLUMNS  (MAXIMUM  COLUMN-ID)  FOR  TABLE. 

FORMT(l.I)  =  PREFIX  TYPE.  f A*1 . I*2,0=3.B=4,C*S.SP=NEGATIVE) • 
FOBMT(?.l)  *  PREFIX  LENGTH. 

FORmTO.I)  AND  FORMT  U.  I)  =  OATA  TYPE  AND  LENGTH. 

FORMT (5.1)  AND  FORMT (6.1)  *  SUFFIX  TYPE  AND  LENGTH. 

FORMT  SPECIFIES  THE  COLUMN  FORMATS. 


JULY  1979 

COMMON  /USAGEC/  MONlTR  .  NDSUSG 

MONITR  0*  NO  COMMANO  MONITORING 
l*  COMMANO  MONITORING 

NDSUSG  DATA  HANDLER  OATASET  NUMBER  FOR  A1MONITR  DATASET 


JULY  22.  1977 

INTEGER  R80CF,W80CF.W12CF,RTMCF,WLNCF 
COMMON  /VFMT/ 

1  R80CF (3) ,W80CF(4) .ISU30C.LNCU.LON1,LDN2,MCH(35) .W12CF (6) . ISU12C 
2.  ISUTMC.RTMCFO)  .ISULNC.«LNCFI3) 

RBOCFs  FORMAT  STATEMENT  TO  READ  80  CTRS  INTO  POSITIONS  1-BO 
W80CF»  FORMAT, STATEMENT  TO  WRITE  80  CTRS  ON  ONE  LINE 
ISU80C*  NUM9EP  OF  SUS  TO  CONTAIN  80  CTRS 
LNCU  ^LITERAL  FOR  NCU 

LDN1.LDN?  s  LITERAL  FOR  FORMAT  TO  PRINT  12  CTRS/3A4*/ 

MCH  IS  NUMBERS  IN  CHARACTER  FORM.  MCH(l)«lHll  MCh ( 35) *2H35. 
W12CF*  FORMAT  ST. TO  WHT .  12CTRS  STARTING  AT  LOCATION  1-120 
USER  MUST  PLACE  THE  NU“RER  OF  COLUMNS  TO  SKIP 
IN  WORD  3  OF  W12CF  eY  AN  ASSIGNMENT  FROM  A  VARIABLE 
DEFINED  IN  A  OATA  STATEEMNT,  (OR  USE  THE  ARRAY  MC> 
ISU12C*  NUMBER  OF  SUS  TO  CONTAIN  12  CTRS 
ISUTMC  IS  NUMBER  OF  WORDS  TO  STORE  A  TERMINAL  LINE. 

RTMCF  IS  FORMAT  TO  READ  LINE  FROM  TERMINAL. 

ISULNC  IS  80 /NCU  (WHOLE  WORDS  NEEDED  TO  STORE  AN  OUTPUT  LINE 
FOR  PRINTING  ON  A  MAX.  80  CHAR  DEVICE)  * 

WLNCF  IS  FORMAT  FOR  ISULNC  WORDS 


JULY  24.  1979 

rCOMMON  /WIDOW C/  PFLAG 
INTEGER  PFLAG 

PFLAG  SWITCH  INDICATING 

-1  *  SET  BEFORE  CALL  TO  WIDOW  PROGRAM. INIT. IN  BLOCK  OATA 
8  •  SET  BY  WIDOW  PROGRAM  TO  HEAN  NORMAL  PROCESSING 
LINE 


c 


0 
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